Проблема с написанием компонента

← →
Gamar (2002-08-16 16:37) [0]

Создаю компонент от TCustomGrid, в котором (TCustomGrid) определен (или в его предках) Color=clWindow, однако мне нужен в новом компоненте Color=clSilver.
Пишу в конструкторе нового компонента после вызова метода предка присваивание Color := clSilver, однако цвет не меняется. Что делать?

← →
Skier (2002-08-16 16:41) [1]

>Gamar
А может у тебя в настройках Windows
clWindow = clSilver
Попробуй поставить Color := clBlue (например...)

← →
Esu (2002-08-16 16:48) [2]

Напиши код своего конструктора.

← →
Gamar (2002-08-16 17:02) [3]

Для Skier

Любой цвет игнорируется. А в настройках все стандартно.

Для Esu

Но я же и пишу свой конструктор, и вызываю в нем предка.

← →
Skier (2002-08-16 17:10) [4]

>Gamar

Не поможет ?

TYourCustomGrid = class(TCustomGrid) protected procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override; public constructor Create(AOwner : TComponent); override; end; //TYourCustomGrid { TYourCustomGrid } constructor TYourCustomGrid.Create(AOwner: TComponent); begin inherited Create(AOwner); Color := clRed; end; procedure TYourCustomGrid.DrawCell(ACol, ARow: Integer; ARect: TRect; AState: TGridDrawState); begin // end;

Создание :

procedure TForm1.Button2Click(Sender: TObject); var ACustomGrid : TYourCustomGrid; begin ACustomGrid := TYourCustomGrid.Create(Self); ACustomGrid.Parent := Self; end;

← →
Esu (2002-08-16 17:19) [5]

> Для Esu
>
> Но я же и пишу свой конструктор, и вызываю в нем предка.

Написать его в эту ветку :)
Что собственно и сделал Skier.

← →
-peter- (2002-08-16 19:04) [6]

To Gamar
Перекрой метод Loaded.

TMyDBGrid = class(TDBGrid)
...
protected
procedure Loaded; override;
...

procedure TMyDBGrid.Loaded;
begin
inherited;
Color := clSilver;
end;

Проблема с написанием компонента Найти похожие ветки