delphi problem - pomó?żcie!!!

0

Witam. Od niedawna uczę się Delphi, piszę właśnie program i nie wiem jak zaprojektować obiekt Edit, aby na bieżąco sprawdzić czy wpisywana liczba jest poprawna, tzn. że użytkownik wpisuje tylko cyfry i jeden przecinek i jeżeli wcisnął
inne klawisze to wyświetlić odpowiedni komunikat i wykasować ten niedozwolony znak. Myślę, że trzeba w jakiś sposób pomieszać w zdarzeniu OnChange, ale nie mogę sobie z tym poradzić. Eksperci, pomóżcie mi :-)

mój e-mail: [email protected]
gadu-gadu: 2379556;

0

Prosze Cie bardzo :)
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not (key in ['0'..'9',#8,#44])) then begin
key := #0;
MessageBox(0, 'Nieprawidłowy znak!', 'Błąd', MB_ICONWARNING);
end;
if Key = #44 then
if Pos(',', Edit1.Text) &lt&gt 0 then begin
Key := #0;
MessageBox(0, 'Nieprawidłowy znak!', 'Błąd', MB_ICONWARNING);
end;
end;--Pozdrawiam {hello}
Tomasz K.

1 użytkowników online, w tym zalogowanych: 0, gości: 1