-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.---
-
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.---
Kod:
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 karşılığı oluyor.
end;