Вывести форму в таскбар

← →
Stalker780 © (2003-12-03 16:45) [0]

собственно нужен сабж. Надо сделать как в Бате Редактирование сообщения и прием почты, чтобы их кнопки в таскбар вылазили, чтобы их можно было сворачивать и закрывать оттуда.

← →
Юрий Зотов © (2003-12-03 16:54) [1]

type
TForml = class(TForm)
...
protected
procedure CreateParams(var Params: TCreateParams); override;
...
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW
end;

← →
Stalker780 © (2003-12-03 17:00) [2]

Работает, но при попытке сделать активным Приложение, его главное окно не активизируется

← →
Stalker780 © (2003-12-03 17:20) [3]

Тогда можно проще.

procedure Tfrm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle,GWL_EXSTYLE, GetWindowLong(Handle,GWL_EXSTYLE) + WS_EX_APPWINDOW);
end;

← →
Семен Сорокин © (2003-12-03 17:22) [4]

FAQ

← →
хамло (2003-12-03 17:34) [5]

есть окно приложения, и окно главной формы приложения. даже если создается приложение, которое в дельфи имеет одну форму, то при запуске будет создано две формы. одна на TApplication и вторая на TApplication.MainForm. поэтому когда тиснем кнопку на таскбаре, чтобы активизировать главное окно приложения, то оно не активизируется, так как на таскбаре кнопка к окну приложения, а не к окну главной формы.
чтобы долго не объяснять, добавьте
SetWindowLong(handle, GWL_EXSTYLE, (GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_APPWINDOW));
на OnFormCreate главной формы. в таскабе будет две кнопки: на окно приложения и на окно главной формы.

> Stalker780

1. CreateParams и SetWindowLong в данном случае одно и то же. Что проще, что сложнее... и то, и другое очень просто.

2. Уточните, что Вы хотели сказать в [2]. Что при щелчку по окошку (кнопке) ПРИЛОЖЕНИЯ в таскбаре не активизируется его ГЛАВНАЯ форма? Или что ГЛАВНАЯ форма не активизируется при щелчку по окошку (кнопке) НЕГЛАВНОЙ формы в таскбаре? Или еще что-то?

Вывести форму в таскбар Найти похожие ветки