Delphi-Quellcode:
procedure TForm1.Edit10Change(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;
So funzt das leider nicht ganz. Er scheint irgendwie das "ELSE" ereignis auszulassen. Wenn ich das Feld komplett ausfülle, kommt das Häkchen. Wenn ich allerdings wieder ein Zeichen lösche, bleibt das Häkchen und wenn ich danach wieder ein falsches Zeichen hinzufüge, bleibt das Häkchen, der Button bleibt "Disabled"...
Kann natürlich daran liegen, dass ich das
if Length...
an die falsche Position gesetzt habe, oder irgendwas vergessen habe. Aber ich wusste nicht, wie ich sonst die richtige Vorgabe
if Edit6.Text='44551'
für das Feld schreiben sollte.