VPF::убрать окно с панели задач после минимизации

golfV

Дата 28.12.2009, 13:02 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 1

Доброго времени суток!

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

Код


procedure TForm1.Hide(Sender: TObject);
begin

 ShowWindow(Application.Handle, SW_HIDE);
end;

надо чтобы когда сварачиваеш программу или закрываеш то чтоб она тоже была невидна в таскбаре делаю вот так

Код


procedure TForm1.ControlWindow(var Msg: TMessage);
begin
  case Msg.WParam of
    SC_MINIMIZE:
      ShowWindow(Application.Handle, SW_HIDE);
    SC_CLOSE:
      ShowWindow(Application.Handle, SW_HIDE);
    else
      inherited;

  end;

но никакой реакции непроисходит. Видел много тем по этому поводу на форуме но некак неполучается это сделать. Подскажите как это сделать правельно, и куда этот код вставлять?

Это сообщение отредактировал(а) golfV - 28.12.2009, 13:02

Akella

Дата 28.12.2009, 14:44 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

а так
ShowWindow(Application.MainForm.Handle, SW_HIDE);

golfV

Дата 28.12.2009, 14:54 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 1

так тоже неубирает с таскбара когда сворачиваю форму

Akella

Дата 28.12.2009, 16:01 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Какая версия дельфи?
Куда вставил код?

golfV

Дата 28.12.2009, 16:16 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 1

Delphi 7 , делаю метод для eventa OnHide

Код


procedure TForm1.FormHide(Sender: TObject);
begin
 ShowWindow(Application.MainForm.Handle, SW_HIDE);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Minimize;
end;

Это сообщение отредактировал(а) golfV - 28.12.2009, 16:25

Akella

Дата 28.12.2009, 16:42 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Код


unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm3 = class(TForm)
  private
    { Private declarations }

    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;


  public
    { Public declarations }

  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.WMSysCommand(var Msg: TWMSysCommand);
// Если сообщение "свернуть", то сворачиваем главную форму приложения
begin
  if (Msg.CmdType = SC_Minimize) then begin
    ShowWindow(Form3.Handle, SW_HIDE);
  end
  else
    inherited;
end;

end.

Добавлено через 27 секунд
Работает на D2007, Win7

Добавлено через 3 минуты и 24 секунды

Цитата(golfV @ 28.12.2009, 16:16

)

Delphi 7 , делаю метод для eventa OnHide

А ты уверен, что при СВОРАЧИВАНИИ срабатывает событие OnHide?

golfV

Дата 28.12.2009, 17:15 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: нет
Всего: 1

Код


ShowWindow(Form3.Handle, SW_HIDE);

таким способом убирает, большое спасибо, а неподскажеш тогда еще как восстановить обратно, у меня есть иконка в трее и меню к ней чтоб вызвать форму обратно. Так теперь после того как программа свернется ее потом обратно невостановить почему то, раньше востанавливал таким образом

Код


Application.Restore;

но теперь он так нехочет работать

Добавлено через 13 минут и 56 секунд
все разобрался сделал так

Код


Application.Restore;
ShowWindow(Form1.Handle, SW_SHOW);

еще раз спасибо за помощь

Akella

Дата 29.12.2009, 01:13 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(golfV @ 28.12.2009, 17:15

)

таким способом убирает, большое спасибо, а неподскажеш тогда еще как восстановить обратно,

Здесь, в общих вопросах уже обсуждали и давали правильный работающий код. Уже поздно, нет желания искать, попробуй сам.

Добавлено через 53 секунды

Цитата(golfV @ 28.12.2009, 17:15

)

ShowWindow(Form1.Handle, SW_SHOW);

Цитата(golfV @ 28.12.2009, 17:15

)

ShowWindow(Form3.Handle,

Лучше использовать application.mainform.handle

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