Letztes Zeichen im Editfeld...

[Störtebeker]

Hat sich erledigt...

Ich musste aus:

Delphi-Quellcode:

procedure TForm1.Edit6Change(Sender: TObject); 
begin 
if 
  Edit6.Text='44551' 
then begin 
if 
  Length(Edit6.Text) = 5 
then begin 
  Image2.visible:=True;//Häkchen 
  Button1.enabled:=true; 
end 
else begin 
  Image2.Visible:=false;//Häkchen 
  Image3.Visible:=true;//Kreuz 
  Button1.Enabled:=false; 
end 
end 
end;

Delphi-Quellcode:

procedure TForm1.Edit6Change(Sender: TObject); 
begin 
if 
  Length(Edit6.Text) = 5
then begin  
if 
  Edit6.Text='44551' 
then begin 
  Image2.visible:=True;//Häkchen 
  Button1.enabled:=true; 
end 
else begin 
  Image2.Visible:=false;//Häkchen 
  Image3.Visible:=true;//Kreuz 
  Button1.Enabled:=false; 
end 
end 
end;

machen.