Скачать: CL | DM;

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

← →
Артём К   (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, и т.д. Дальше, я думаю, сам разберёшься

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c