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

← →
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)}

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