"Rahmen" innerhalb einer Combobox

[Niko]

Hi,

das geht, indem du die Eigenschaft Style deiner ComboBox auf csOwnerDrawFixed setzt und den Inhalt selber zeichnest.

Etwa so:

Delphi-Quellcode:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ComboBox1.Canvas.Pen.Color := clRed;
  ComboBox1.Canvas.Rectangle(Rect);
  Rect.Left := Rect.Left + 1;
  Rect.Top := Rect.Top + 1;
  Rect.Right := Rect.Right - 1;
  Rect.Bottom := Rect.Bottom - 1;
  ComboBox1.Canvas.Brush.Style := bsClear;
  ComboBox1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ComboBox1.Items[Index]);
end;