Скачать: CL | DM;

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

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

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

---

← →
Radionov Alexey ©   (2003-05-07 14:27) [7]

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c