Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Ik gebruik vaak TEdit om de gebruiker nummers te laten invoeren. Uiteraard willen we alleen maar nummers zien, en ja: ik weet dat TMaskEdit dit ook kan, maar ik vindt TMaskEdit maar niks ...
Voor gehele getallen:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
if (not (Key in ['0'..'9', #8, #9])) then Key := #0;
end;
Voor getallen met cijfers achter de decimale punt (Real etc) - let op dat ik hier een "," gebruik voor de decimale punt, Amerikaanse gebruikers gebruiken een ".". Deze functie vangt ook de invoer af van meer dan 1 decimale punt (of komma):
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
if (not (Key in ['0'..'9', ',', #8, #9])) OR ( (Key = ',') and (pos(',',TEdit(Sender).Text)>0) ) then Key := #0;
end;
