Скачать: CL | DM;

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

← →
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)!!!!!!!!!!
создать создам а  при нажатии чтоб она делала что-то ?*????
делала пользовательсие функции , как их обьявить

---

← →
Defunct ©   (2004-11-03 02:20) [6]

dolphin   (03.11.04 01:57) [5]

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

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

---

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

Скачать: CL | DM;



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