Fokus von TEdit aufheben

[Scurra]

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]

Setze den Focus einfach auf den EXIT-Button:

Delphi-Quellcode:

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

[Scurra]

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]

Delphi-Quellcode:

procedure TForm1.Edit1MouseLeave(Sender: TObject);
begin
bnExit.SetFocus;
end;

[Sir Rufo]

Zitat von hathor:

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]

Erstmal solltest du definieren was "aufheben" eigentlich heißen soll.

• Fokus weg vom Edit ... irgendwo hin
  irgendeinAnderesControl.SetFocus;

• Fokus weg vom Edit, aber auch nicht zu einem anderem Control (hier bekommt die Form selber den Fokus)
  {Self.}ActiveControl := nil;

• Fokus weg vom Edit und auch gleich weg von der Form (bei nur einer Form wie Letzteres)
  andereForm.SetFocus;

• Fokus weg vom Edit und auch gleich weg vom ganzen Programm