TCombobox Text deselektieren nach SetFocus

[KodeZwerg]

Zitat von himitsu:

Oder einfach noch etwas warten.

Delphi-Quellcode:

TThread.ForceQueue(nil, procedure
  begin
    DeineComboBox.ClearSelection;
  end;

Das würde den Inhalt der ComboBox vernichten.

Delphi-Quellcode:

// das um sicherzustellen das nichts blau ist nach einer auswahl durchs pop-up oder per scroll
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  PostMessage(ComboBox1.Handle, CB_SETEDITSEL, 0, MAKELPARAM($FFFF, $0000));
end;

// das damit nichts ausgewählt wird wenn die combobox den focus erhält
procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  PostMessage(ComboBox1.Handle, CB_SETEDITSEL, 0, MAKELPARAM($FFFF, $0000));
end;