Başlangıç > Kodlar > Delphi ile Esc tuşuna basınca programın kapanması

Delphi ile Esc tuşuna basınca programın kapanması

Bu kod ile ESC tuşuna basınca programın kapatılmasını sağlayabilirsiniz

Formun Create Olayına Şu Kodlar Yazılacaktır İlk Önce

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview := True;
end;

Daha Sonrasında İse Formun KeyPress Özelliğinede Bu Kodları Yazacağız

procedure TForm1.FormKeyPress
(Sender: TObject; var Key: Char);
begin
if key = #27 then Close;
end;

Not:Programımızı Çalıştırmadan Önce KeyPreview Özelliğini True Yapacağız.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: