Динамическое создание формы, Создать форму во время выполнения проги Опции

[AlexPS]

Чуваки, а кто-нить знает, как во время выполнения проги, создать еще одну форму?
Как обратиться к этой форме, как создать элементы на этой форме???
Заранее всем пасибо!!!

[P@sh@]

чтобы кнопки обрабатывать, напиши заранее обработчик события:

Код

type
 TForm1=class(TForm)
 ...
   procedure MyButtonClick(Sender: TObject);
 ...
 end;
 ...
implementation
 ...
procedure TForm1.MyButtonClick(Sender: TObject);
begin
 // ... обращение к вызвавшей обработчик кнопке:
 TButton(Sender).Caption:='Нажата';
end;

и назначь его кнопке при создании:

Код

 ...
 bt:=TButton.Create(frm);
 ...
 bt.OnClick:=MyButtonClick;
 ...

а в Memo как обычно пиши - Memo.Lines.Add('aaa');
только для этого придется переменную описать не в процедуре, а, например, в классе, чтоб ссылка не потерялась

Сообщение отредактировано: P@sh@ - 24.01.2005 13:38