Создание окон с отдельными кнопками на панели задач

← →
Михаил_ (2005-12-02 09:48) [0]

Всем привет.
Вопрос такой:
как создавать окошки так, чтобы на панели задач для каждого нового окна отображалась отдельная кнопка (наподобие того, как Internet Explorer или Word создают новые окошки).
Заранее благодарен.

← →
Чапаев © (2005-12-02 10:07) [1]

RTFM GetWindowLong(), SetWindowLong(), раздел о стилях окна в справке по CreateWindowEx().

← →
Михаил_ (2005-12-02 10:40) [2]

Чапаев, спасибо за ответ, но если я правильно понял, то придется создавать все компоненты окна в ручную пользуясь WinAPI. А нельзя ли добиться того же эффекта, используя объекты?

← →
Чапаев © (2005-12-02 11:08) [3]

> А нельзя ли добиться того же эффекта, используя объекты?

Ну почему сразу нельзя? ;-) Можно!

Перекрывай метод формы CreateParams. Там вызывай inherited, а потом добавляй WS_EX_APPWINDOW (кажется, так) в ExStyle (кажется, так).

← →
ANB © (2005-12-02 12:20) [4]

procedure TfmLog.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do begin
Style := (Style or WS_POPUP) and (not WS_CHILD);
WndParent := HWND_DESKTOP;
end;
end;

Так почему то работает.

← →
Михаил_ (2005-12-02 12:54) [5]

Что-то не выходит. Я делаю так:
1. в секцию private добавил procedure CreateParams(var Params: TCreateParams);;
2. в implementation
procedure TForm3.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with params do ExStyle := ExStyle or WS_EX_APPWINDOW end;
3. в модуле unit1
procedure TForm1.Button2Click(Sender: TObject); begin Form3.Show; end;
и принажатии на кнопку Button2 появляется окно, но на панели задач новой кнопки не появляется.
В чем может быть дело?

procedure CreateParams(var Params: TCreateParams); override;

← →
Михаил_ (2005-12-02 13:02) [7]

Точно, забыл указать override.
Все заработала, Все спасибо за советы!!!

Создание окон с отдельными кнопками на панели задач Найти похожие ветки