Delphi Escape Tuşu İle Formu Kapatma

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:

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;

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;

İçeriği puanla diğer kullanıcılara ışık tut

Kategoriler

Bloga e-posta ile abone ol

Delphi Escape Tuşu İle Formu Kapatma

Bir yanıt yazın Yanıtı iptal et

Bir yanıt yazın Yanıtı iptal et

Murat Öner sitesinden daha fazla şey keşfedin