TcxButton Dropdown Menu

Pascal |

480 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

procedure T_PRDT_DataEntry.btnChngStatDropDownMenuPopup(Sender: TObject; var
    APopupMenu: TPopupMenu; var AHandled: Boolean);
var
  lPoint  : TPoint;
  lBounds : TRect;
begin
  lPoint := gbxMasterData.ClientToScreen(
    btnChngStat.BoundsRect.BottomRight
  );
  lBounds := btnChngStat.BoundsRect;
  StatusMenu.PopupEx(
    lPoint.x - btnChngStat.Width,
    lPoint.y,
    btnChngStat.Width,
    btnChngStat.Height,
    False,
    @lBounds
  );
  AHandled := True;
end;

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎
01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

TcxButton Dropdown Menu

Comments