Nach Klick auf Button Textfeld wieder aktivieren

[bluerazer190]

Hallo Delphianer ,
es kann sein, dass dieses Thema hier schon mehrfach besprochen wurde, jedoch fehlen mir wahrscheinlich die richtigen Suchbegriffe.

Zu meinem Anliegen:
ich habe ein Formular mit einem Eingabefeld. Beim Klick auf den Button prüfen, wird das Wort kontrolliert und das nächste angezeigt. (Übersetzungsprogramm)

Nun finde ich es allerdings etwas lästig, dass man immer erst den Cursor erneut in das Textfeld setzen muss, um das nächste Wort einzugeben.
Wie heißt die Funktion, mit der ich nach dem Klick auf den Button den Cursor wieder in das Textfeld setze?

Weiterhin, soll sobald ein Buchstabe eingegeben wird, also OnKeyPressed der Überprüfen Button selectiert werden, dass ich meine Eingabe einfach mit ENTER überprüfen lassen kann.

Ich hoffe ihr versteht meine Anliegen.
Dankeschön im voraus.

[freak4fun]

Edit1.SetFocus;

[himitsu]

Oder man nehme einen SpeedButton ... dieser bekommt keinen Eingabefokus und somit sollte der Fokus im Edit verbleiben.

[freak4fun]

Zitat von himitsu:

Oder man nehme einen SpeedButton ... dieser bekommt keinen Eingabefokus und somit sollte der Fokus im Edit verbleiben.

[Luckie]

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  // wenn weiter geschrieben werden soll
  //Edit1.SelStart := Length(Edit1.Text);
  // wenn Inhalt gelöscht werden soll
  Edit1.Text := '';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Button1.Enabled := Length(Edit1.Text) > 0;
end;

[FredlFesl]

Darf ich mal fragen, was dieser Beitrag in "Algorithmen, Datenstrukturen und Klassendesign" zu suchen hat?
Wäre er nicht eher in "GUI-Design mit VCL / FireMonkey / Common Controls" besser aufgehoben?