Mega Code Archive

 

Categories / Delphi / Examples

 

Put popup menu on the right side

Title: 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;