Textruta

Programmering

1 svar · 243 visningar · startad av msossna

Medlem sedan feb. 2002476 inlägg
Trådstart#1

Hur ställer man in en textruta så att den bara tar siffror?

Medlem sedan juli 200124 inlägg
#2

Skriv följande i editboxens onKeyPress-event:

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

mvh Tony

250 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)