TComboBox:auswählen unmöglich wenn onMouseEnter/Leave <> nil

[sniper_w]

Delphi-Quellcode:

procedure TsomeForm.OnSomeFormCreate(Sender: TObject);
begin
  cb.OnMouseEnter := cbOnMouseEnter;
  cb.OnMouseLeave := cbOnMouseLeave;
// cb ist TComboBox
end;

procedure TsomeForm.cbMouseEnter(Sender: TObject);
begin
  cb.Font.Style := cb.Font.Style + [fsBold];
end;

procedure TsomeForm.cbMouseLeave(Sender: TObject);
begin
  cb.Font.Style := cb.Font.Style - [fsBold];
end;

Wenn diese beide Events zugewiesen sind, dann kann man nichts mehr, was in ComboBox ist, auswählen? :gruebel:

[SirTwist]

Du veränderst das visuelle Erscheinungsbild der ComboBox, dann muss die neugezeichnet werden. Das beißt sich anscheinend damit, die Runterklappbox "auszufahren".

Das Aufklappen geht aber einwandfrei, wenn die Ereignisse MouseEnter/MouseLeave nur Aktionen ausführen, die nicht direkt die ComboBox betreffen. Testweise habe ich mal die Caption des Hauptfensters geändert, das ist kein Problem.