editfeld - onchange - problem

[AlexanderBrade]

Hallo an alle,
geht so was:

Delphi-Quellcode:

if not edit1.Text='' then button1.enabled:=true;

Im prinzip soll der OK Button des FOrmulars immer nur dann aktiv sein, wenn etwas im editFeld steht um Komplikationen zu vermeiden, aber das scheint nicht ganz hinzuhauen!

[pilic]

Natürlich geht das, nur musst du den Button auch wieder deaktivieren, wenn es leer ist.

[AlexanderBrade]

Ja, aber, seine Standardantwort lautet beim Compilieren:
[Fehler] Unit12.pas(31): E2015 Operator ist auf diesen Operandentyp nicht anwendbar!!!!!!!!!!!

[BullsEye]

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  IF (edit1.Text <> '') THEN BEGIN
  Button1.Enabled := true;
  END ELSE BEGIN
  Button1.Enabled := false;
  END;
end;

So funktioniert das.

Musst nur den Button von Anfang an Disablen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled := false;
end;

[Meflin]

Oder einfacher :stupid:

Delphi-Quellcode:

Button1.Enabled := Edit1.Text <> '';

[AlexanderBrade]

Noch mal kurz eine andere Sache:
Wie schaffe ich es, dass ich die editbox nicht noch einmal anklicken muss und sofort nach dem Formularaufruf eingeben kann?
Geht das über den OI?

P.S. Das andere klappt dankt eurer Hilfe!

[himitsu]

nur eine Frage pro Thread :warn:

pssst: Edit in Tabulatorreinfolge an Platz 1 setzen oder Form.ActiveControl das Edit zuweisen (notfalls im Form.OnCreate)

Zitat:

Delphi-Quellcode:

if not edit1.Text='' then

und warum das nicht geht ... NOT hat Vorrang vor Vergleichen, also übersetzt Delphi das so:

Delphi-Quellcode:

if (not edit1.Text) = '' then

ein String kann nicht negiert werden,
aber das Gegenteil von = ist <> :zwinker:

[Meflin]

im OnDisplay deines Formulars:
Edit1.SetFocus
und am besten gleich noch

Delphi-Quellcode:

Edit1.SetFocus;
Edit1.SelectAll;