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

Вниз

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

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

Спасибо.

---

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

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

Наверх

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