درباره EDIT [بایگانی] - برنامه نویس

qazwsx

جمعه 09 فروردین 1387, 20:17 عصر

میشه راهنمای کننین چه جوریEDIT فقط عداد رو بگیره

dana74

جمعه 09 فروردین 1387, 20:38 عصر

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', #8, #13]) then
key := #0;
end;

babak_delphi

جمعه 09 فروردین 1387, 20:39 عصر

if Pos(ch,#8#13'1234567890') = 0 then
ch := #0;

در OnKeyPressمیتونی استفاده کنی
8# , 13# هم واسه اینه که delete و Back Space کار کنند