Einzelnen Beitrag anzeigen

traudl

Registriert seit: 22. Jun 2004
Ort: Lauterach
37 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Edit mit variabler Nummer

  Alt 9. Dez 2004, 16:51
Ich habe jetzt ein onKeypress Ereignis geschrieben, weiß aber nicht wie ich es dem Editfeld zuweisen kann.

Delphi-Quellcode:
procedure TForm6.Edit_neg(Sender: TObject; var Key: Char);
begin
    If not(key in [#48..#57,#8,#44..#46])
    then key := #0;
    If Key = #44 then Key := #46;
end;
weil ich kann in die Felder eingeben was ich will und nicht nur Zahlen.

Hat jemand eine Idee.

Gruß Udo

Udo Kinscherf
  Mit Zitat antworten Zitat