Membuat Menu Popup dengan Delphi

• Buat sebuah Project baru tambahkan sebuah komponen Memo yang ada pada tab Standard.
  


• Drag komponen Memo tersebut hingga lebarnya memenuhi form.


• Tambahkan baris program berikut pada event OnMouseUp komponen Memo :


var TitikClient,TitikLayar: TPoint;

begin

if Memo1.SelLength>0 then

begin

TitikClient.X := X;

TitikClient.Y := Y;

TitikLayar := ClientToScreen (TitikClient);

PopupMenu1.Popup (TitikLayar.X, TitikLayar.Y);

end;

end;