Fokus von TEdit aufheben

[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

[Scurra]

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]

Zitat von Scurra:

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.