TComboBox: Mauszeiger verschwindet

[ensaron]

Hallo zusammen

Ich habe hier ein kleines Problem mit einer TComboBox:
Die Combobox ist mit Einträgen gefüllt, von denen der Anwender einen auswählen kann. Wird ein Text eingegeben, wird der Inhalt der Combobox nach dieser Eingabe gefiltert.

Nach Abschluss des Filterns setzt ich TComboBox.DroppedDown := True , um die Einträge passend zu der Eingabe anzuzeigen. Dabei verschwindet der Mauszeiger und erscheint erst wieder, wenn die Auswahlliste geschlossen wird.

Weiß jemand, wie ich dies verhindere oder den Mauszeiger nach dem Setzen von DroppedDown wieder einblenden kann?

Ein bisschen Code:

Delphi-Quellcode:

TForm.ComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
  if (...) then
    //Behandlung Enter, Tab, Pfeiltasten
  else
    PostMessage(Handle, WM_MYMESSAGE, 0, 0);
end;

procedure TForm.MyMessageProcedure(var Msg: Message);
begin
  if EnteredText = '' then
    //Liste neu füllen
  else
  begin
    //Liste filtern
    ComboBox.DroppedDown := True;
  end;
end;