Создание визуальных обектов

← →
Apachi (2003-05-07 14:13) [0]

После того как

VForm:=TForm.Create(self);
VBoot:=TButton.Create(self);

как поместить VBoot на VForm чето неполучается
Всем спасибо!

← →
Radionov Alexey © (2003-05-07 14:15) [1]

Vboot.Parent := VForm

← →
Radionov Alexey © (2003-05-07 14:18) [2]

Var VForm : TForm; VBoot : TButton; begin VForm := TForm.Create(Self); VBoot := TButton.Create(VForm); VBoot.Parent := VForm; VForm.Show; end;

← →
Apachi (2003-05-07 14:20) [3]

у Vboot.Parent тип TWidgetControl а у VForm тип TForm короче написал мне ошибку я это уже пробывал но всеравно спасибо !

← →
Radionov Alexey © (2003-05-07 14:22) [4]

Apachi (07.05.03 14:20)
см. справку для TButton:
property Parent: TWinControl;

TForm - потомок TWinControl. Следовательно присваивание не должно вызвать ошибки. Либо у тебя переопределен класс TButton

← →
Apachi (2003-05-07 14:24) [5]

я компонент создаю конструктор переопределяю требуется дополнительная форма вот
constructor TDBGridAsc.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
VForm:=TForm.Create(self);
VForm.Top:=10;
VForm.Left:=Round(Self.Width/6);
VForm.Height:=Self.Height-30;
VForm.Width:=Round(4*Self.Width/6);
VForm.ParentWindow:=Self.Handle;
VForm.BorderStyle:=bsToolWindow;
VBoot:=TButton.Create(self);
VBoot.Parent:=VForm;
end;

← →
Apachi (2003-05-07 14:25) [6]

Зуб даю последняя строчка это ошибка :)

Напиши что за ошибка

← →
Apachi (2003-05-07 14:28) [8]

ааааааа мля я не тот unit подключил надо было StdCtrls а я QStdCtrls этот написал всем СОРРИ ВСЕМ СПАСИБО :)

Создание визуальных обектов Найти похожие ветки