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

Кнопка в панели задач для НЕглавной формы   Найти похожие ветки 

← →
Yurko   (2004-09-09 18:45) [0]

Нужно чтоб у неглавной формы была своя кнопка на панели задач, да так, чтоб между этой и главной формами можно было переключатся с помощью этих кнопок.
Делаю так:
...........
protected
 procedure CreateParams(var Params: TCreateParams); override;
...........
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 with Params do
 begin
   WndParent := Application.Handle;
   ExStyle := ExStyle or WS_EX_APPWINDOW;
 end;
end;
Кнопка появилась, но при нажатии на кнопку главной формы, все равно, активной остается дочерняя.
Помогите, пожалуйста, исправить!

---

← →
SPy ©   (2004-09-09 19:06) [1]

Ты попробуй прятать главную форму, тогда кнопка будет отвечать за другую форму!

---

← →
wicked ©   (2004-09-09 20:00) [2]

проблема в том, что та кнока, которую мы видим на панели задач, представляет собой кнопку не главного окна приложения, а окна, создаваемого обьектом Application... поэтому совет прост - прятать кнопку от Application, а код, приведенный в [0] для дочерней формы, также скопировать в главную форму...

---

← →
TUser ©   (2004-09-09 20:03) [3]

Вот это убери
 WndParent := Application.Handle;

---

← →
Abel   (2004-09-09 21:14) [4]


{To show other forms of a project in the Windows task bar try overriding
the following method to each form you want visible :}

Procedure TForm1.CreateParams(Var params: TCreateParams );
Begin
 inherited;
 Params.WndParent := GetDesktopWindow;
 params.exstyle := params.exstyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW;
end;

{coded by Peter Below (TeamB)}


---

Страницы: 1 вся ветка

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



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