Mega Code Archive

 

Categories / Delphi / VCL

 

Herhangi bir menünün popop menü gibi kullanımı

(* 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;