Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];
ВнизСобития в динамически создаваемых формах Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.041 c