VPF::ShowWindow(Application.Handle, SW_HIDE) - Форум программистов

Ak47black

Дата 12.11.2007, 18:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Здравствуйте.
Подскажите пожалуйста что у меня нетак с кодом.
Я хочу сделать чтобы при минимизации внизу на той полоске где кнопка Start убирался прямоугольник моей программы, тоесть я сворачиваю программу в Tray.
Вот такой код у меня вышел

Код


  protected
    procedure MinimazeMessage(var Msg: TMessage); message WM_SYSCOMMAND;
...
procedure TForm.MinimazeMessage(var Msg: TMessage);
begin
  if Msg.WParam = SC_MINIMIZE then
    ShowWindow(Application.Handle, SW_HIDE);
  inherited;
end;

При минимизации прямоугольник вначале скрывается, а потом опять появляется.
Как тут правильно сделать? В чем-же ошибка? smile

Alexeis

Дата 12.11.2007, 18:55 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Хм.. у меня все стабильно работает.

Код


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

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

Код


procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  Application.MainFormOnTaskbar := False;
  ShowWindow(Application.Handle, SW_HIDE);
end;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Ak47black

Дата 12.11.2007, 19:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

Ага как нестранно но работает.
Странно то что по SC_MINIMIZE неработает.
Спасибо что подсказал +.

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