Case Focus of ?

[René]

Hallo, ich möchte in Abhängigkeit der Kompon., die den Focus hat, etwas ausführen lassen. Gibt es Case Focus of oder Case TabOrder of ?

[Thomas Melchert]

<p>Hallo René,<br>
<br>
dafür gibt es das Ereignis <b>OnEnter</b>, über das viele Komponenten verfügen.<br>
<br>
<pre>
procedure TForm1.Edit1Enter(Sender:TObject);
begin
ShowMessage(Format('Habe den Focus erhalten: %s', [Edit1.Name]));
end;
</pre>
<br>
Gruß Thomas</p&gt