(*
Oldukça faydalı bir işlem. Örneğin uygulama içerisindeki düzen menüsünü
kullanıcı sağ tıkladığında Popup menü şeklinde gösterebilirsiniz.
Yeni bir uygulama açıp Ana menü ekleyip Dosya menüsünü yaratın. (Başlık Dosya olsun)
Altına istediğiniz elemanları ekleyin.
*)
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
if Button = mbRight then
begin
GetCursorPos(pt);
TrackPopupMenu(Dosya1.Handle, TPM_LEFTBUTTON or TPM_LEFTALIGN,
pt.X, pt.Y, 0, Handle, nil);
end;
end;