Необходимо создать свободную форму

← →
Артём К (2003-04-03 04:58) [0]

Привет всем!!!
Проблема следующая: (Необходимо создать свободную форму) т.е.
Есть форма. На ней кнопка и листбокс. В листбоксе отображаются документы моей программы. Как сделать, чтобы при нажатии на кнопку вызывалась форма для выбранного документа. Но, чтобы при этом в панели задач появлялась эта форма, и чтобы при сворачивании этой формы документа она сворачивалась в панель задач.
Заранее спасибо!!!

← →
zirus (2003-04-03 06:24) [1]

Вот так можно сделать форму видимой в панели задач(пишется в unit2 для form2)
private
procedure CreateParams(var Params: TCreateParams); override;
....
....
....
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;

А вот так можно создавать копии формы form2, уже заранее созданной

procedure TForm1.copy_form_2(var a, b, c,d: string);
var ff: tform2;
begin
ff:=unit2.tform2.create(form2);
ff.Caption:=a+"->"+b;
ff.Memo1.Lines.Add(c+d);
ff.show;
end;

Если надо несколько разных форм на разные данные, надо соответственно менять: var ff: tform3, и т.д. Дальше, я думаю, сам разберёшься

Необходимо создать свободную форму Найти похожие ветки