Открытие формы

Sardor
Дата: 04.07.2009 10:50:08
Народ помогите пожалуста. при нажатии на кнопку открывается окошко в котором несколько компонентов. У меня несколько кнопок при нажатии на которых нужно чтоб открвалось это окошко со всеми своими параметрами. Если я нажму на одну кнопку потом на другую надо чтоб открлось два одинаковых окна. Если как то не понятно объяснил скажите постараюсь более понятлевее отписаться. заранее большое спасибо.
Sardor
Дата: 04.07.2009 10:50:59
Может есть какаято функция.???
SQLap
Дата: 04.07.2009 10:57:37
Sardor
Если как то не понятно объяснил скажите постараюсь более понятлевее отписаться.


Непонятно.
Sardor
Дата: 04.07.2009 11:03:46
SQLap,

Так... на форме есть несколько кнопок. при нажатии на который открывается форма. Форма одна, нужно чтоб при нажатии на одну кнопку открвалась она, если же нажму ну другую кнопку тоже чтоб открлась та форма, но первая форма чтоб не закрывалась т.е что то вроде клона формы чтоб было.
SQLap
Дата: 04.07.2009 11:26:31
Sardor,

выкиньте форму из списка auto-create forms (в Project-Options-Forms) и создавайте каждый раз новый ее экземпляр при нажатии на кнопку
Sardor
Дата: 04.07.2009 13:32:54
как форму создовать ?? с помощью FormCreate.?
SQLap
Дата: 04.07.2009 13:37:16
Sardor,

var
  F: TForm;
begin
  F := TForm.Create(nil);
...
Док
Дата: 04.07.2009 16:28:27
Sardor,

with TFrmChild.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;

форму надо предварительно создать и убрать из auto-create forms, как советовал SQLap.

Можно сделать ее "универсальной" для неск. сендеров. Для анализа сендера (ну, там, отображать разные контроллы в зависимости от...) можно тупо завести глобальный индентификатор (а-ля SenderTag: Integer), куда вносить свойство Tag текущего сендера (чтобы не возиться с приведением типов) и элементарно анализировать: какой контролл вызвал форму.
Sardor
Дата: 04.07.2009 18:06:12
Спасиьр большое за советы. я начал делать . еще делать много что но вроде идет как надо
function NewForm(Owner: TForm; Name: string): TForm;
var
 Form: TForm;
 Memo1:TMemo;
 Memo2:TMemo;
 Button2:TButton;
 i:integer;
begin
 Result := nil;
 Form:= TForm.Create(Owner);
 Form.Width:=460;
 Form.ClientHeight:=300;
..............
у меня такой вопрос. я на этой форме поставил кнопку. кто может подсказать как правильно оброботать событи Button2.OnClick или в самой функции это все делать надо??
Sardor
Дата: 04.07.2009 18:12:51
А все разобрался.))