IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - edite sadece rakam veya harf girilmesi (https://www.ircforumlari.net/delphi/689496-edite-sadece-rakam-veya-harf-girilmesi.html)

Kaf_Dağı

18 Mart 2015 14:09

edite sadece rakam veya harf girilmesi

Kod:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

 if ( StrScan('0123456789.-',Key) <> nil ) or

   ( Key = Char(VK_BACK) ) then

 begin

 

 end

 else

  Key := #0;

end;

 

//yalnız harf girme

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then

  Key := #0;

 

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:04.