Mega Code Archive

 

Categories / Delphi / VCL

 

Teditde popupu engellemek

Sadece sayı girilen bir editde sağ fare ile tıklayınca PopUp gelerek harf vs. yapıştırılabiliyor. Bunu engellemek için Editin Oncontexpopup'una Abort yazmak yeterli.procedure TAnaForm.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Abort; end; //gerçi basit oldu ama belki bilmeyen vardır.:)