[bulldog]

Видел в какомто примере как можно реализовать дополнительную форму без создания самой формы, там нада было нажать кнопку button и создавалась форма, в button было прописана создание формы через create, вобщем как то так, но исходник такой я чёт найт не могу, есть у кого ни будь предложения?

[lmikle]

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  f : TForm;
  b : TButton;
begin
  f := TForm.Create(Application);
  b := TButton.Create(f);
  b.Parent := f;
  b.Caption := 'OK';
  b.Top := 10;
  b.Left := 10;
  b.ModalResult := mrOK;
  b.Cancel := True;
  f.ShowModal;
  f.Free;
end;

Только целесообразность такого метода создания форм напрочь отсутствует. Тебе придется кодом повторить все те настройки всех компонентов, которые в дизайнтайме ты легко делаешь через инспектор...

[bulldog]

Это целесообраздно при определенных условиях, спасибо тема закрыта