Как добавить в свой визуальный компонент другой (тоже визуальный)

← →
Michael5 (2005-08-07 22:19) [0]

Мой компонент - на основе DBGrid, собираюсь добавить ADOConnection, DataSource и т.д., но пока решил потренироваться на Button"e.

Как я понял, чтобы кнопку было видно, ей нужно задать Parent. Как это правильно сделать, а то он ругается:
на строке
FButton.Parent:=Self;
выдает [Error] MyDBGrid.pas(42): Incompatible types: "TWidgetControl" and "TMyDBGrid"

(и то же самое с Лейблом, я и на нем тренируюсь)?
Подскажите пожалуйста, как родительские эти связи устанавливать?
Или тут вообще форму нужно задавать как родителя...?

unit MyDBGrid; interface uses SysUtils, Classes, Controls, Grids, DBGrids, QStdCtrls; type TMyDBGrid = class(TDBGrid) private { Private declarations } FButton:TButton; protected { Protected declarations } public { Public declarations } published constructor Create(AOwner:TComponent); override; { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents("Standard", [TMyDBGrid]); end; { TMyDBGrid } constructor TMyDBGrid.Create(AOwner: TComponent); var MyLabel:TLabel; begin inherited Create(AOwner); FButton:=TButton.Create(Self); FButton.Parent:=Self; FButton.Top:=0; FButton.Left:=0; FButton.Visible:=true; MyLabel:=TLabel.Create(Self); MyLabel.Parent:=Self; MyLabel.Top:=0; MyLabel.Left:=0; MyLabel.Visible:=true; end; end.

← →
Юрий Зотов © (2005-08-08 03:30) [1]

Просмотрите uses и уберите оттуда модули, начинающиеся с Q.

← →
Юрий Зотов © (2005-08-08 03:32) [2]

Точнее, просто замените QStdCtrls на StdCtrls;

← →
Michael5 (2005-08-08 09:42) [3]

Спасибо большое!

Как добавить в свой визуальный компонент другой (тоже визуальный) Найти похожие ветки