Текущий архив: 2003.02.10;
Скачать: CL | DM;
ВнизЕсть программа с двумя формами, Form1 и Form2, в Form1 на Найти похожие ветки
← →
waterfoll (2003-01-29 12:47) [0]Button1Click, я делаю видемой Form2. (Form2.Show), это все понятно, но мне надо, что бы Form2 отображалась на панеле задачь отдельно от Form1. Как можно это реализовать?
← →
waterfoll (2003-01-31 16:32) [1]Ну вы где Мастера? Ауу, неужели все так плохо и не кто незнает :(
← →
uw (2003-01-31 17:44) [2]procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.ParentWindow := GetDeskTopWindow;
Form2.Show;
end;
← →
uw (2003-01-31 18:05) [3]Написал, проверил... Что-то плохо себя эта форма ведет.
← →
Slava (2003-01-31 18:37) [4]А так:
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;
← →
waterfoll (2003-02-02 03:00) [5]Уже нашел, вот так она хорошо себя ведет:
procedure ShowTaskBarButton(wnd : HWND);
begin
ShowWindow(wnd, SW_HIDE);
SetWindowLong(wnd, GWL_HWNDPARENT, 0);
ShowWindow(wnd, SW_SHOW);
end;
Страницы: 1 вся ветка
Текущий архив: 2003.02.10;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.01 c