Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Nach Klick auf Button Textfeld wieder aktivieren (https://www.delphipraxis.net/162938-nach-klick-auf-button-textfeld-wieder-aktivieren.html)

bluerazer190 9. Sep 2011 20:59

Nach Klick auf Button Textfeld wieder aktivieren
 
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 9. Sep 2011 21:06

AW: Nach Klick auf Button Textfeld wieder aktivieren
 
Delphi-Quellcode:
Edit1.SetFocus;

himitsu 9. Sep 2011 21:23

AW: Nach Klick auf Button Textfeld wieder aktivieren
 
Oder man nehme einen SpeedButton ... dieser bekommt keinen Eingabefokus und somit sollte der Fokus im Edit verbleiben.

freak4fun 9. Sep 2011 21:28

AW: Nach Klick auf Button Textfeld wieder aktivieren
 
Zitat:

Zitat von himitsu (Beitrag 1123054)
Oder man nehme einen SpeedButton ... dieser bekommt keinen Eingabefokus und somit sollte der Fokus im Edit verbleiben.

:thumb:

Luckie 9. Sep 2011 21:29

AW: Nach Klick auf Button Textfeld wieder aktivieren
 
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 11. Sep 2011 16:41

AW: Nach Klick auf Button Textfeld wieder aktivieren
 
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?

DP-Maintenance 11. Sep 2011 17:50

Dieses Thema wurde am "11. Sep 2011, 18:50 Uhr" von "Luckie" aus dem Forum "Algorithmen, Datenstrukturen und Klassendesign" in das Forum "GUI-Design mit VCL / FireMonkey / Common Controls" verschoben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz