Hm to pouziti s repeat je moc pekne. To je tip jak prase. Presne jak je napsano nahore proc nepouzit key in ...
Jeste k tomu paste. Pokud by to uzivatel potreboval, muzete si ten text nechat vlozit a pak spoustit proceduru, kterej predate jeden znak za druhym a ona to otestuje. Kdyz to bude jen v KeyPress predate ji Key, a kdyz to tam flakne, tak to ve smycce otestujete.
KeyPress neosetri vlozeni znaku pres clipboard.
Asi by to bylo lepší přes OnChange, ne?
To uz jsem kdysi s nekym probiral... zrejme jsi to vubec nezkousel, ze?
CRTL+V je totiz taky odfiltrovano...
mozna jeste pres mysaka.. ovsem i to lze inteligentne zrusit..
Rusit asi nebude ta spravna cesta. Lepsi je si napsat nakou validaci a volat ji pri WM_PASTE. Kdyz validace neprojde vratim predchozi hodnotu. V kombinaci s KeyPress uz to bude f klidku.
.. a neni inteligentnejsi napsat toto??
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin
if not(Key in['0'..'9',#8])then Key:=#0;
end;
nez nejake repeat until ....
LOL, moje rec
a to se autor vubec nezaobiral dalsima funkcnima klavesama (sipky, tabulator...)
k tomu staci pouze toto...
if not(Key in['0'..'9',#8,......{sem pridavat char_kody klaves} ])then Key:=#0;
Potvrďte prosím přezdívku, kterou jsme náhodně vygenerovali, nebo si zvolte jinou. Zajistí, že váš profil bude unikátní.
Tato přezdívka je už obsazená, zvolte prosím jinou.