Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Components

⤷ Put popup menu on the right side

First of all, you should set the Autopopup property to False and use this code on MouseDown event.

var
  KorX, KorY: Ineteger;
...
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then
  begin
    KorY:=Form1.Top+22;
    KorX:=Form1.Left+Form1.Width;
    PopupMenu1.Popup(KorX, KorY);
  end;
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes