Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: while and "funktioniert nicht"

  Alt 4. Sep 2018, 15:52
Ich würde es wie schon mal geschrieben über die Aktivierung des Buttons machen.

Button.Enabled := False;
Delphi-Quellcode:
procedure TFormDings.EditExit(Sender: TObject);
begin
    Button.Enabled := ( edti1.Text <> '' ) and (edit2.Text <> '');
end;
Diese Methode bei den Edits mit dem Exit-Event verbinden (onExit).

Wenn beide Edits nicht mehr leer sind, wird der Button anklickbar.
Markus Kinzler
  Mit Zitat antworten Zitat