ComboBox

[Painkiller_13]

Если задать элементу ComboBox параметр
BevelOuter (bvRaised или bvLowered) ComboBox обрисовывается черной обводкой как изменить цвет этой обводки?

[Lesha]

можно так:

// uses ExtCtrls

// цветная рамка вокруг компонентов
procedure SetComponentBorder(c: TControl; colorr: integer);
begin
  with TShape.Create(c) do begin
    Parent:=c.Parent;
    Top:=c.Top-1;
    Left:=c.Left-1;
    Pen.Color:=colorr;
    Width:=c.Width+2;
    Height:=c.Height+2;
    SendToBack;
  end;
  if c is TComboBox then
    with TComboBox(c) do begin
      BevelInner:=bvLowered;
      BevelKind:=bkFlat;
      BevelOuter:=bvNone;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //ярко-розовый
  SetComponentBorder(ComboBox1,9639167);
  SetComponentBorder(Label1,9639167);
end;

[mihali4]

Читаем правила раздела...
Там объясняется,почему закрыта тема.