14-09-2019, Saat: 15:42
Merhaba; Edit1 alanına;
'1','2','3','4','5','6','7','8','9','10','11','12' Dışında hiç bir şey girmemesini nasıl yaparım ?
bu şekilde olmadı.
'1','2','3','4','5','6','7','8','9','10','11','12' Dışında hiç bir şey girmemesini nasıl yaparım ?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not(Key in ['1','2','3','4','5','6','7','8','9','10','11','12', #8]) Then Key := #0; end;
bu şekilde olmadı.