TEdit'in Varsayılan PopUp (Context) Menüsünü Kullanılmaz Dur

[RamazanG]

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.




Kullanıcı bir edit (ya da diğer komponentler MaskEdit, Memo, DbEdit, gibi.) üzerinde sağ tıkladığı zaman varsayılan olarak popup menu açılır ve kes, kopyala, yapıştır v.b. seçenekler çıkar, bu durumu engellemenin bir yolu vardır.

Basit bir yol: OnContextPopup olayına bir hadle atanır ve değeri TRUE verilir.
OnContextPopup olayı komponent üzerinde sağ tıklandığını algılıyabilir.

Aşşağıda bir Edit komponentinin OnContextPopup olayına yazılan kod ile sağ tuş tıklandığında varsayılan olarak açılan popupmenu iptal edilebilir.

Kod: Tümünü seç

 procedure TForm1.Edit1ContextPopup(
    Sender: TObject;
    MousePos: TPoint;
    var Handled: Boolean) ;
 begin
    {Varsayılan context popup kullanılmaz duruma getir}
    Handled := True;
 end; 

[sabanakman]

Böyle bir durumda Edit'in PopupMenu özelliğine boş bir PopupMenu nesnesi atayarak yapardım ama bu daha pratik ve ideal bir yöntemmiş.