Скачать: 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 вся ветка

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



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