Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];

Вниз

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

 
Артём К   (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.027 c
1-44110
Jel
2003-04-01 11:11
2003.04.14
Variable required


1-44117
Andrey V.
2003-04-03 06:41
2003.04.14
TPageControl


14-44459
race1
2003-03-30 08:14
2003.04.14
qcad


1-44101
Maximov
2003-03-30 12:41
2003.04.14
Как в перенести объект из панели?


6-44299
avm
2003-02-19 17:32
2003.04.14
удалённый реестр





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский