создание компонентов на этапе выполнения

← →
Nick-From (2003-12-09 23:59) [0]

Нужно чтобы создалась, скажем, форма с кнопкой на ней:

T_MyObj = class
private
F_form: TForm;
F_button: TSpeedButton;

делаем форму:

function T_MyObj.BuildForm(var aF_FormOwner: TForm): boolean;
begin
Result := true;
Try
Self.F_form := TForm.Create(aF_fmLogonOwner);
Self.F_form.Width := 300;
Self.F_form.Height := 170;
Self.F_form.BorderIcons := [biSystemMenu];
Self.F_form.BorderStyle := bsSingle;
Self.F_form.Position := poDesktopCenter;
Except
Result := false;
End
end;

а теперь кнопку на ней:

function T_MyObj.BuildButton: boolean;
begin
Result := true;
Try
Self.F_button := TSpeedButton.Create(Self.F_form);
Self.F_button.Left := 35;
Self.F_button.Top := 35;
Self.F_button.Width := 120;
Self.F_button.Height := 22;
Self.F_button.TabOrder := 0;
Except
Result := false;
End
end;

Ну а потом все сразу:

function T_MyObj.BuildLogOnAll(var aF_FormOwner: TForm): boolean;
begin
Result := true;
Try
Self.BuildForm(aF_fmLogonOwner);
Self.BuildButton;
Self.F_form.ShowModal;
Except
Result := false;
End
end;

Форма есть, а кнопки на ней нет - что не так я делаю?

← →
Zacho (2003-12-10 00:14) [1]

Насколько понял, тебе надо добавить Self.F_button.Parent:=Self.F_form;
Кстати, можно и так: F_button.Parent:=F_form;

← →
easy (2003-12-10 00:15) [2]

http://delphi.vitpc.com/helloworld/runtime_comp.htm

← →
lak (2003-12-10 00:53) [3]

Удалено модератором
Примечание: Offtopic

создание компонентов на этапе выполнения Найти похожие ветки