Ultimate Pack  hot! Image Editor  new! Runtime Fusion Form Designer Object Inspector Print Suite Pro Commented Image Delphi Toys WinDowse Delphi Bonus TMS Scripter Studio Form Designer VB Form Designer .NET ...get more... for Delphi.NET, C#, VB.NET for Delphi VCL, BCB 3-6

	WinAPI Online Unix Manual Pages MegaDetailed.NET in3steps.com   greatis.blogspot.com

See more ads about delphi programming →

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;

For more

Delphi Help

Download source

See more ads about delphi components →