Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Есть программа с двумя формами, Form1 и Form2, в Form1 на [D6, WinME]

waterfoll © (2003-01-29 12:47:00)
Button1Click, я делаю видемой Form2. (Form2.Show), это все понятно, но мне надо, что бы Form2 отображалась на панеле задачь отдельно от Form1. Как можно это реализовать?

waterfoll (2003-02-02 03:00:00) [1]
Уже нашел, вот так она хорошо себя ведет:
procedure ShowTaskBarButton(wnd : HWND);
begin
ShowWindow(wnd, SW_HIDE);
SetWindowLong(wnd, GWL_HWNDPARENT, 0);
ShowWindow(wnd, SW_SHOW);
end;

Slava (2003-01-31 18:37:00) [2]
А так:
type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
end;

...

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

uw (2003-01-31 18:05:00) [3]
Написал, проверил... Что-то плохо себя эта форма ведет.

uw (2003-01-31 17:44:00) [4]
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ParentWindow := GetDeskTopWindow;
Form2.Show;
end;

waterfoll (2003-01-31 16:32:00) [5]
Ну вы где Мастера? Ауу, неужели все так плохо и не кто незнает :(

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »