Динамическое создание формы.

← →
R (2003-01-21 06:47) [0]

Мастера приведите если не сложно пример динамического создания формы и двух кнопок на ней с ModalResult mbOK и mbCancel
стандартные диалоги приводить в пример не нужно.

← →
Думкин © (2003-01-21 07:27) [1]

TMyForm = class(TForm)
private
bOk,bCancel : TButton;
public
constructor CreateNew(AOwner : TComponent); override;
end;
constructor TMyForm.CreateNew(AOwner : TComponent);
begin
inherited;
bOK := TButton.Create(Self);
bOK.Parent := Self;
bOK.ModalResult := mrOK;
bCancel := TButton.Create(Self);
bCancel.Parent := Self;
bCancel.ModalResult := mrCancel
end;

MyForm : TMyForm;
MyForm := TMyForm.CreateNew(nil);
MyForm.Free

← →
R (2003-01-21 07:32) [2]

Спасибо.

Динамическое создание формы. Найти похожие ветки