Fehler bei ComboBox und OnActiveControlChange?

[Sharky]

Hai,
ich habe heute mal zum test mit dem Ereigniss TScreen.OnActivControlChange gespielt. Dabei ist das Testprojekt im Anhang heraus gekommen. Wenn man durch die Controls wandert sollte im Label2 der Name der Componente stehen welche den Fokus besitzt.
Aber: Wenn man das mit der Tabulatortaste machte versagt die Funktion bei der ComboBox. Wenn man der CB mit der Maus den Fokus gibt funktioniert es.
Woran kann das denn liegen?

[mirage228]

Hi,

mit Deinem Code klappt es bei mir auch nicht.

Aber so:

Delphi-Quellcode:

procedure TForm1.myOnControlChange(sender : TObject);
begin
  if ActiveControl <> nil then
    Label2.Caption := ActiveControl.Name else
  Label2.Caption := '';
end;

mfG
mirage228

[Sharky]

Zitat von mirage228:

Hi,
mit Deinem Code klappt es bei mir auch nicht.
Aber so:...

Hai mirage228,

so hatte ich es dann auch gemacht. Es wäre trotzdem interessant zu wissen warum der andere Code nicht geht.

[mirage228]

Hi,

also ich bin den Code mal schritt für Schritt durchgegangen und "Focused" der ComboBox ist "False", wenn man es mit dem Tabulator ansteuert
Eventuell ist das Edit innerhalb der ComboBox fokusiert (oder so) oder es ist einfach ein Bug in der VCL...

mfG
mirage228