Delphi/Escape Tuşu İle Form Kapatma//Cem Adrian

BÖKE

BÖKE

Yaşayan Forum Efsanesi
20 Ağu 2016
8,754
411
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:
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;
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.