Собития в динамически создаваемых формах

← →
dolphin (2004-11-02 13:50) [0]

есть прога которая в runtime созает n-ое количество форм
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
myform:TForm;
begin
myform:=TForm.Create(Self);
myform.Show;

end;
и мне нужно чтобы новая форма имела кнопку и при нажатии кнопки
выполнялось какое то событие (ну close этой же формы например)

ЗАРАНИЕ СПАСИБО

← →
Digitman © (2004-11-02 13:58) [1]

> мне нужно чтобы новая форма имела кнопку и при нажатии кнопки
> выполнялось какое то событие (ну close этой же формы например)

что мешает в дизайн-тайм разработать новую форму TForm2 с готовой кнопкой и ее обработчиком, и в ходе выполнения Button1Click выполнить

TForm2.Create(Self).Show;

?

← →
Семен Сорокин © (2004-11-02 14:01) [2]

procedure TForm1.Button1Click(Sender: TObject); var myform : TForm; mybtn : TButton; begin myform := TForm.Create(Self); with myform do try mybtn := TButton.Create(myform); mybtn.SetBounds(10, 10, 30, 30); mybtn.Caption := "Закрыть"; mybtn.ModalResult := mrOk; mybtn.Parent := myform; ShowModal finally Free end end;

← →
dolphin (2004-11-02 23:08) [3]

количество форм не известно
где обрабатывать или создавть события на новую кнопку созданую в runtime
b:Tbutton
b:=Tbutton.create(self);
b.Caption:="dima";
b.Parent:=myform;
а где собития к кнопке b обьявить (в дизайне кнопку b создавать не буду)
и для Семен Сорокин что такое mrOK <mybtn.ModalResult := mrOk;
>

← →
Гаврила © (2004-11-02 23:57) [4]

> количество форм не известно

так не известно же количество экземпляров формы.
Класс формы можно описать в design time
а количество экземпляров создать какое нужно

а вообще

mybtn.OnClose:=mybtnClose;
где
mybtnClose типа TNotyfyEvent

← →
dolphin (2004-11-03 01:57) [5]

где и как обьявить событие для новой кнопки(b)!!!!!!!!!!
создать создам а при нажатии чтоб она делала что-то ?*????
делала пользовательсие функции , как их обьявить

dolphin (03.11.04 01:57) [5]

http://delphimaster.net/view/1-1099423039/

я вам там примерчик накатал.

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