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/)
-   -   Delphi Fokus von TEdit aufheben (https://www.delphipraxis.net/183969-fokus-von-tedit-aufheben.html)

Scurra 16. Feb 2015 18:15

Fokus von TEdit aufheben
 
Hallo zusammen,

ist es möglich, den Fokus einer TEdit-Komponente aufzuheben, sobald man neben das Formular oder irgendwo im Formular (außer auf die TEdit-Komponente) klickt (evtl. sollen dabei auch andere Eigenschaften wie die Sichtbarkeit verändert werden)? Ich möchte verhindern, extra für jede Komponente auf meinem Formular entsprechenden Code ins entsprechende OnClick-Event zu schreiben, da das ziemlich umständlich ist. Ich habe dazu leider nichts gefunden.

Hintergrund ist, dass ich ähnlich wie in Windows Ordner und Dateien umbenennen in meinem Programm umbenennen möchte.

hathor 16. Feb 2015 18:22

AW: Fokus von TEdit aufheben
 
Setze den Focus einfach auf den EXIT-Button:

Delphi-Quellcode:
procedure TForm1.FormClick(Sender: TObject);
begin
bnExit.SetFocus;
end;

Scurra 19. Feb 2015 16:57

AW: Fokus von TEdit aufheben
 
Sorry, es hat etwas länger gedauert.

Der Vorschlag klappt zwar, wenn ich irgendwo auf das Formular klicke, aber wenn ich auf eine Komponente, die sich auf dem Formular befindet, klicke, dann wird das OnClick-Event des Formulars nicht ausgelöst. Ich habe jetzt die am wenigsten elegante Lösung gewählt, die ich eigentlich vermeiden wollte: Ich habe einfach bei allen Komponenten, bei denen sich bei einem Klick der Fokus nicht ändert, in der Click-Prozedur den Fokus auf das Formular bzw. auf eine Scrollbox, die sich auf dem Formular befindet, gesetzt.

hathor 19. Feb 2015 18:13

AW: Fokus von TEdit aufheben
 
Delphi-Quellcode:
procedure TForm1.Edit1MouseLeave(Sender: TObject);
begin
bnExit.SetFocus;
end;

Sir Rufo 19. Feb 2015 19:29

AW: Fokus von TEdit aufheben
 
Zitat:

Zitat von hathor (Beitrag 1290660)
Delphi-Quellcode:
procedure TForm1.Edit1MouseLeave(Sender: TObject);
begin
bnExit.SetFocus;
end;

Dann sollte man aber beim Schreiben in das Edit die Maus festnageln, sonst gibt das lustige Effekte ;)

himitsu 19. Feb 2015 20:20

AW: Fokus von TEdit aufheben
 
Erstmal solltest du definieren was "aufheben" eigentlich heißen soll.
  • Fokus weg vom Edit ... irgendwo hin
    Delphi-Quellcode:
    irgendeinAnderesControl.SetFocus;
  • Fokus weg vom Edit, aber auch nicht zu einem anderem Control (hier bekommt die Form selber den Fokus)
    Delphi-Quellcode:
    {Self.}ActiveControl := nil;
  • Fokus weg vom Edit und auch gleich weg von der Form (bei nur einer Form wie Letzteres)
    Delphi-Quellcode:
    andereForm.SetFocus;
  • Fokus weg vom Edit und auch gleich weg vom ganzen Programm :stupid:

Scurra 23. Feb 2015 17:22

AW: Fokus von TEdit aufheben
 
Zitat:

Erstmal solltest du definieren was "aufheben" eigentlich heißen soll.
Es genügt, wenn der Fokus weg vom Edit ist. Genauer: In meinem Programm verwende ich das OnExit-Event und das soll ausgelöst werden. Wenn der Fokus vom Edit weg ist, dann wird das aber ausgeführt.

Inzwischen vermute ich, dass es für mein Vorhaben keine Möglichkeit zur Umsetzung gibt, denn woher soll das Edit wissen, wenn ich wo anders hinklicke? Diese Information muss ich eben in den OnClick-Events der anderen Komponenten im Formular weitergeben, was bedeutet, dass ich in jedes OnClick-Event der anderen Komponenten extra etwas schreiben muss, um es dem Edit mitzuteilen (beispielsweise den Fokus auf ein anderen Element setzen, wodruch das Edit weiß, dass es nicht mehr den Fokus hat).

Da ich nicht soo viele Elemente auf meinem Formular habe, war es nicht so viel Aufwand, das zu programmieren. Trotzdem bin ich nach wie vor daran interessiert zu wissen, ob es doch eine andere Möglichkeit gibt.

Trotzdem vielen Dank an alle Poster mit deren Anregungen.

BadenPower 23. Feb 2015 18:14

AW: Fokus von TEdit aufheben
 
Zitat:

Zitat von Scurra (Beitrag 1291162)
Zitat:

Erstmal solltest du definieren was "aufheben" eigentlich heißen soll.
Es genügt, wenn der Fokus weg vom Edit ist. Genauer: In meinem Programm verwende ich das OnExit-Event und das soll ausgelöst werden. Wenn der Fokus vom Edit weg ist, dann wird das aber ausgeführt.

Das Edit-Feld verliert doch automatisch den Focus, sobald Du auf einen Button, anderes Editfeld, Stringgrid usw.. klickst. Und dann wird auch das OnExit Deines Editfeldes aufgerufen.

Zeig' einmal etwas Code von dem was Du vor hast.

Scurra 24. Feb 2015 19:40

AW: Fokus von TEdit aufheben
 
Zitat:

Das Edit-Feld verliert doch automatisch den Focus, sobald Du auf einen Button, anderes Editfeld, Stringgrid usw.. klickst. Und dann wird auch das OnExit Deines Editfeldes aufgerufen.
Aber beispielsweise nicht, wenn ich einfach aufs Formular klicke (neben andere Komponenten). Und bei Klicks auf bestimmte Komponenten wie Panels etc. geht der Fokus auch nicht weg.

Zitat:

Zeig' einmal etwas Code von dem was Du vor hast.
Aus dem Code wird man auch nicht schlauer. Ich möchte lediglich, dass der Fokus von einem Edit verschwindet, sobald man irgendwo anders hinklickt. Da ich in meinem Formular nicht soo viele anderen Komponenten platziert habe, ist es nicht soo umständlich, aber angenommen ich platziere jetzt mehrere Panels auf meinem Formular, dann muss ich für jedes extra implementieren, dass bei einem Klick der Fokus vom Edit verschwindet. Im Idealfall sollte auch noch der Fokus vom Edit aufgehoben werden, wenn man neben das Formular klickt, aber das ist mir im Moment nicht so wichtig.

hathor 24. Feb 2015 22:33

AW: Fokus von TEdit aufheben
 
Lies doch noch einmal - oder endlich mal - #2 und #4...!

Scurra 25. Feb 2015 06:13

AW: Fokus von TEdit aufheben
 
Zitat:

Zitat von hathor (Beitrag 1291369)
Lies doch noch einmal - oder endlich mal - #2 und #4...!

Wie man den fokus aufheben kann ist mir klar und das war nicht meine Frage:
Zitat:

Ich möchte verhindern, extra für jede Komponente auf meinem Formular entsprechenden Code ins entsprechende OnClick-Event zu schreiben, da das ziemlich umständlich ist. Ich habe dazu leider nichts gefunden.
Falls es im ersten Beitrag noch nicht klar wurde, dachte ich, dass es zumindest durch meine anderen Antworten deutlich wurde.

Perlsau 25. Feb 2015 06:54

AW: Fokus von TEdit aufheben
 
Klingt irgendwie nach "wasch mich, aber mach mich nicht naß".

Ich würde dir einfach das OnExit-Ereignis empfehlen, in dessen Ereignisbehandlung du reinschreibst, daß irgend eine andere Komponente den Fokus erhalten soll. Und natürlich mußt du das für jede Komponente implementieren, die du so behandelt wissen willst. Hier rumzumosern hilft dir nicht weiter und schreckt die Leute nur davon ab, dir weiterhin helfen zu wollen.

BadenPower 25. Feb 2015 08:16

AW: Fokus von TEdit aufheben
 
Zitat:

Zitat von Perlsau (Beitrag 1291374)
Hier rumzumosern hilft dir nicht weiter und schreckt die Leute nur davon ab, dir weiterhin helfen zu wollen.

Vor allem, wenn man solche "präzise" Aussagen hat:

Zitat:

Zitat von Scurra (Beitrag 1291162)
Es genügt, wenn der Fokus weg vom Edit ist. Genauer: In meinem Programm verwende ich das OnExit-Event und das soll ausgelöst werden. Wenn der Fokus vom Edit weg ist, dann wird das aber ausgeführt.


DeddyH 25. Feb 2015 08:17

AW: Fokus von TEdit aufheben
 
Wenn man den Eventhandler einmal schreibt, kann man ihn ja auch im OI mehreren Controls zuweisen, so viel Arbeit ist das also gar nicht.

Scurra 25. Feb 2015 17:39

AW: Fokus von TEdit aufheben
 
Ich weiß zwar nicht, wo ich "rumgemosert" habe, aber für die Leute, die es so interpretiert haben: Es war nicht meine Absicht!

Zitat:

Ich würde dir einfach das OnExit-Ereignis empfehlen, in dessen Ereignisbehandlung du reinschreibst, daß irgend eine andere Komponente den Fokus erhalten soll.
Erhält nicht schon eine andere Komponente den Fokus, wenn das OnExit-Ereignis ausgelöst wird? Oder verstehe ich dich falsch?

Zitat:

Und natürlich mußt du das für jede Komponente implementieren, die du so behandelt wissen willst.
Danke. Das ist die Antwort auf meine Frage.

himitsu 25. Feb 2015 18:00

AW: Fokus von TEdit aufheben
 
Zitat:

Zitat von Scurra (Beitrag 1291529)
Zitat:

Und natürlich mußt du das für jede Komponente implementieren, die du so behandelt wissen willst.
Danke. Das ist die Antwort auf meine Frage.

Was aber nicht bedeudet, daß man überall eigene Ereignis-Methoden dran machen muß. (eine Gemeinsame reicht auch)

DeddyH 25. Feb 2015 18:04

AW: Fokus von TEdit aufheben
 
Sag ich doch.

Perlsau 25. Feb 2015 18:34

AW: Fokus von TEdit aufheben
 
Sagt er doch :-)

Zitat:

Zitat von Scurra (Beitrag 1291529)
Ich weiß zwar nicht, wo ich "rumgemosert" habe, aber für die Leute, die es so interpretiert haben: Es war nicht meine Absicht!

Manchmal mosern manche auch völlig unbeabsichtigt. Glaub mir, da kenn ich mich gut aus :stupid:

Zitat:

Zitat von Scurra (Beitrag 1291529)
Zitat:

Ich würde dir einfach das OnExit-Ereignis empfehlen, in dessen Ereignisbehandlung du reinschreibst, daß irgend eine andere Komponente den Fokus erhalten soll.
Erhält nicht schon eine andere Komponente den Fokus, wenn das OnExit-Ereignis ausgelöst wird? Oder verstehe ich dich falsch?

Dann hast du ja jetzt doch was bemerkt: Der Fokus ist weg, sobald man die Komponente verläßt. Was du möchtest, ist ein Zustand, bei dem keine Komponente den Fokus hat. Das hath hathor oben schon beschrieben.

Zitat:

Zitat von Scurra (Beitrag 1291529)
Zitat:

Und natürlich mußt du das für jede Komponente implementieren, die du so behandelt wissen willst.
Danke. Das ist die Antwort auf meine Frage.

Wobei du natürlich wieder Code und Tipperei einsparen kannst, wenn bei jedem Exit-Ereignis dasselbe gemacht werden soll, wie meine Vorposter bereits ausführten.

Wozu soll das eigentlich gut sein? Am Anfang hast du geschrieben, der Hintergrund wäre, "dass ich ähnlich wie in Windows Ordner und Dateien umbenennen in meinem Programm umbenennen möchte". Dabei ist jede Art & Weise, in der man Dateien & Ordner in Windows umbenennen kann, eben in Windows. Sogar wenn du in einer DOS-Box Dateien umbenennst, machst du das in Windows ... unter Linux gibt's vielleicht auch DOS-Boxen, aber dort nennt man die glaub ich Konsolen. Oder mit anderen Dateimanagern wie z.B. FreeCommander, da erscheint eine Input-Box zum Umbenennen. Ist aber alles Windows.

Wenn ich mal spekulieren darf: Du denkst dabei an den Windwos-Explorer, in dessen Dateifenster du eine Datei anklickst, woraufhin der Explorer diesen Eintrag in den Edit-Modus versetzt? Und das möchtest du nachbauen?

Was aber hat das alles mit dem Fokus irgendwelcher Komponenten zu tun?

Wieso sollte man überhaupt künstlich einer Komponente den Fokus entreißen wollen? Mir erschließt sich der Sinn des Ganzen nicht. Für das Setzen des Fokus' gibt es meiner Erfahrung nach schon sinnvollen Bedarf, z.B. in einem Login-Fenster auf das Edit für den Benutzernamen. Aber für das Entfernen des Fokus'? Da fällt mir jetzt beim besten Willen keine passende Situation ein :cyclops:

Scurra 25. Feb 2015 19:47

AW: Fokus von TEdit aufheben
 
Zitat:

Manchmal mosern manche auch völlig unbeabsichtigt. Glaub mir, da kenn ich mich gut aus
Gut zu wissen. Na hoffentlich passiert es mir nicht (mehr) ;) Ich möchte nämlich nicht bei Leuten rummosern, von denen ich hoffe, dass sie mir helfen :D

Zitat:

Wenn ich mal spekulieren darf: Du denkst dabei an den Windwos-Explorer, in dessen Dateifenster du eine Datei anklickst, woraufhin der Explorer diesen Eintrag in den Edit-Modus versetzt? Und das möchtest du nachbauen?
Ja, das ist richtig. Das Programm hat aber eigentlich keinen praktischen Nutzen, denn sonst könnte ich ja gleich den Windows-Explorer verwenden. Es ist für mich einfach nur eine Übung, da ich noch ein Anfänger bin, was Delphi (und andere Programmiersprachen ;)) betrifft.

Zitat:

Was aber hat das alles mit dem Fokus irgendwelcher Komponenten zu tun? [...] Wieso sollte man überhaupt künstlich einer Komponente den Fokus entreißen wollen?
Ich kann meinen Windows-Explorer-Nachbau dazu verwenden, um einen Ordner zu wählen. Aus dem gewählten Verzeichnis werden mir alle .jgp bzw. .jpeg Dateien in einer Miniaturansicht angezeigt. Dazu habe ich mir eine eigene Klasse geschrieben, die auf der TPanel-Klasse basiert. Auf dem Panel platziere ich eine TImage-Komponente (um die Miniaturansicht des Bildes zu erzeugen) sowie ein Label für den Datei-Namen und ein Edit um den Datei-Namen zu ändern. Wenn nun eine Datei selektiert wurde (ähnlich wie bei Windows) und ich noch einmal auf das Label klicke, dann wird das Label unsichtbar, das Edit wird sichbar und das Edit erhält den Fokus. Wenn ich in Windows einen Dateinamen ändere, dann verschwindet das Editier-Feld wieder, sobald ich mit der Maus irgendwo anders hinklicke (meiner bisherigen Beobachtung ist es völlig egal, wohin man klickt, so lange man nicht wieder auf das Editier-Feld selbst klickt). Und da setzt meine Implementierung an: Sobald ich irgendwo auf mein Formular oder auf eine beliebige Komponente auf dem Formular (außer dem fokusierten Edit), soll das Edit den Fokus verlieren. Im OnExit-Event wird das Edit dann wieder unsichtbar und das Label erscheint mit dem neuen Namen. Da sich bei mir die Panels, die die Miniaturansicht gewährleisten, in einer Scrollbox befinden, gebe ich ganz einfach den Fokus an die Scrollbox ab.

Wenn ich nun nachträglich neue Komponenten auf das Formular setze, dann muss ich immer daran denken, in deren OnClick-Events den Fokus auf die Scrollbox zu setzen (so lange beim Klick nichts anderes passieren soll). Das finde ich ziemlich unelegant, weshalb ich nach einer anderen Möglichkeit gefragt habe. So etwas wie "wenn immer geklickt wird und die Mausposition nicht mit der des Edits übereinstimmt, soll der Fokus auf die Scrollbox gesetzt werden (und anschließend das OnClick-Event der angeklickten Komponente ausgeführt werden)".

Mag sein, dass es bessere und elegantere Implementierungen gibt als die, die ich gewählt habe. Die Implementierung, die ich wähle, ist meistens nicht so elegant und schön (wie ich am Ende meistens feststelle ;)).


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:59 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