Einzelnen Beitrag anzeigen

naudoc

Registriert seit: 7. Nov 2006
92 Beiträge
 
#13

Re: Editfelder für Buchstaben sperren

  Alt 26. Nov 2006, 09:59
Hi,
so solls aussehen.

Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
if ((edit1.text=floattostr(a)) or (edit1.text='-'+floattostr(a)+'') or (edit1.text='0') or (edit1.text=''))
and ((edit2.text=floattostr(b)) or (edit2.text='-'+floattostr(b)+'') or (edit2.text='0') or (edit2.text=''))
and ((edit3.text=floattostr(c)) or (edit3.text='-'+floattostr(c)+'') or (edit3.text='0') or (edit3.text=''))
then
Es soll erreicht werden, das sich ein Labelfeld nur verändert, wenn das Editfeld eine Zahl, oder leer ist...

mfG
  Mit Zitat antworten Zitat