Текущий архив: 2006.01.29;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.01.29;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.033 c