VPF::Window preview в Vista - Форум программистов

Alix

Дата 29.11.2008, 14:17 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

Суть проблемы можно почитать тут, а если кратко и по-русски, она такова: Application имеет свое - главное окно и именно его кнопка (а не главной формы!) отображается в таскбаре. Превью окошка в висте делается для текущего активного окна приложения. Когда Application-окно сворачивается, то оно сворачивает и дочерние окна (включая, есно, главную форму), а потому превью больше нет. Наглядная картинка в аттаче. Чтобы это обойти предлагается:
1) убрать окно Application с таскбара

Код

  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(
    Application.Handle, 
    GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW
  );
  ShowWindow(Application.Handle, SW_SHOW);

2) сделать главное окно видимым на таскбаре

Код

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

3) операции по сворачиванию/разворачиванию главного окна производить самому, чтобы избежать обработки этих событий application'ом.

Код

  TForm1 = class(TForm)
    ...
    procedure WMSyscommand(var Message: TWmSysCommand); message WM_SYSCOMMAND;
    ...
  end;

...

procedure TForm1.WMSyscommand(var Message: TWmSysCommand);
begin
  case (Message.CmdType and $FFF0) of
    SC_MINIMIZE:
      begin
        ShowWindow(Handle, SW_MINIMIZE);
        Message.Result := 0;
      end;
    SC_RESTORE:
      begin
        ShowWindow(Handle, SW_RESTORE);
        Message.Result := 0;
      end;
    else
      inherited;
  end;
end;

Все в общем то работает, за исключением первого пункта. В чем может быть дело? На всякий: Delphi 2009 Update 1.

Присоединённый файл ( Кол-во скачиваний: 13 )

application1.png 27,48 Kb

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

Qu1nt

Дата 29.11.2008, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50

Project -> View Source

Код


Application.MainFormOnTaskbar := False; // или удалить

Данное свойство появилось в Delphi 2007.

Это сообщение отредактировал(а) Qu1nt - 29.11.2008, 15:29

Alix

Дата 29.11.2008, 15:30 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

Нда, все просто, оказывается) Я перешел сразу после 7й, не знал об этой возможности. Спасибо!

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »