Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

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

Defunct (2004-11-03 02:20:00) [1]
dolphin (03.11.04 01:57) [5]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1099423039&n=0

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

dolphin (2004-11-03 01:57:00) [2]
где и как обьявить событие для новой кнопки(b)!!!!!!!!!!
создать создам а при нажатии чтоб она делала что-то ?*????
делала пользовательсие функции , как их обьявить

Гаврила (2004-11-02 23:57:00) [3]

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

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

а вообще

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

dolphin (2004-11-02 23:08:00) [4]
количество форм не известно
где обрабатывать или создавть события на новую кнопку созданую в runtime
b:Tbutton
b:=Tbutton.create(self);
b.Caption:='dima';
b.Parent:=myform;
а где собития к кнопке b обьявить (в дизайне кнопку b создавать не буду)
и для Семен Сорокин что такое mrOK <mybtn.ModalResult := mrOk;
>

Семен Сорокин (2004-11-02 14:01:00) [5]
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;

Digitman (2004-11-02 13:58:00) [6]

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

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

TForm 2.Create(Self).Show;

?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »