Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: 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 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
6-44307
_MAD_
2003-02-15 23:19
2003.04.14
Дружда cgi и делфи


1-44100
владимир33
2003-04-02 17:58
2003.04.14
передать ссылку на двумерный массив в функцию


14-44347
Val
2003-03-25 16:18
2003.04.14
Реконструкция крушения американского вертолета


1-44268
delpher_gray
2003-04-02 11:57
2003.04.14
Алгоритм брутфорсера...


3-44072
Staraya
2003-03-26 11:01
2003.04.14
SQL explorer. Обновление записей в таблицах..