Habe mal gesucht und das heir gefunden:
Habe dabei festgestellt, das das Programm nie in das Ereignis reinspringt. Wie kann ich das realisieren ?
Delphi-Quellcode:
procedure TForm1.ComboBox1DrawItem(
Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
farbe: TColor;
begin
if ComboBox1.text = 'Test' then farbe:= clmaroon;
with ComboBox1, ComboBox1.Canvas do begin
Font.Color:= clblack; // SchriftFarbe
Brush.Color:= farbe; // HintergrundFarbe
FillRect(Rect); // Hintergrund zeichnen
TextOut(Rect.Left+5, Rect.Top+1, Items[index]); // Textausgabe
end;
end;
Gruss
Holger