Yazılım geliştirirken kimi formlarla fazla uğraşmadan ihtiyaç giderildikten sonra escape tuşu ile rahatça kapatma ihtiyacı duyarız c#’da olduğu gibi delphi’dede bu iş oldukça basit ve mantık olarak aynı.
Aşağıdaki kodu formun keypress event’ine yazdıktan sonra çalışmayacaktır keypress event’inin ilk önce form tarafından algılanabilmesi için Formu KeyPreview özelliğini True yapmanız gerekmektedir.
Örnek Kod:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.FormCreate(Sender: begin KeyPreview := True; {İsterseniz kod satırında istersenizde yukarıda belirtmiş olduğum gibi formun property'sinden Keypreview özelliğini True yapmalısınız} end; procedure TForm1.FormKeyPress (Sender: TObject; var Key: Char) ; begin if key = #27 then Close; {bu if koşulunda ise Key işlevi ile basılan tuş #27 yani escape tuşuna eşitse formu kapatıyoruz.} //#27 escape tuşunun ascii karşılığı oluyor. end; |