Warum kann die ComboBox nicht direkt aufklappen?

[Popov]

Ich kam auf die verrückte Idee, die ComboBox so einzustellen, dass es, wenn es nicht dem Fokus hat, auch nicht den DropDown-Button anzeigt. Der Code sollte einfach sein:

Delphi-Quellcode:

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  ComboBox1.Style := csDropDown;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  ComboBox1.Style := csSimple;
end;

Bei OnEnter wird der Style csDropDown, sonst csSimple. Insoweit funktioniert es auch.

Das Problem ist, dass ich nach OnEnter nicht sofort auf DropDown-Button klicken kann. Tut sich nichts. Erst wenn ich erneut in das Fenster klicke, erst dann funktionert der DropDown-Button. Warum?