Свернуть/развернуть окно одной кнопкой

[webersol]

Всем привет! В прошлой теме я научился управлять программой, отлавливая нажатие клавиш на клавиатуре. Теперь стоит другой вопрос: как одной кнопкой можно показать, а затем свернуть программу. Тоесть один раз нажал- свернулось, второй раз нажал появилось. Не могу додуматься.

[beegl]

чекбокс кинь, если развернуто окно, то ЧексБокс = True иначе False или управлением атомом, вариантов много

[Alex11223]

Это как вообще? Откуда вы кнопку возьмете если свернута программа?

Или о клавиатуре речь? Ну так RegisterHotKey + какой-нибудь WindowState у формы для определения ее текущего состояния.

Хотя вроде WindowState не во всех случаях работает, еще есть функция IsIconic(). (передать туда Application.Handle или Handle формы).

[Dmitry33RU]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if form1.CheckBox1.checked then begin
form2.WindowState := wsMinimized;
end else begin
form2.WindowState := wsNormal;
end;
end;

[min@y™]

как одной кнопкой можно показать, а затем свернуть программу

какую программу: свою или чужую?

[Alex11223]

beegl, Dmitry33RU, а если пользователь свернет или развернет программу другим способом?
И даже если это единственный способ и не страшна рассинхронизация, то причем тут CheckBox вообще если он не нужен в интерфейсе? Вы его всегда используете вместо boolean переменных или свойств?!

[Dmitry33RU]

Сообщение от Alex11223

beegl, Dmitry33RU, а если пользователь свернет или развернет программу другим способом?
И даже если это единственный способ и не страшна рассинхронизация, то причем тут CheckBox вообще если он не нужен в интерфейсе? Вы его всегда используете вместо boolean переменных или свойств?!

Что ТС просил то я ему и предложил

Сообщение от webersol

как одной кнопкой можно показать, а затем свернуть программу

[webersol]

Кнопкой на клавиатуре! В своей же программе, я отлавливаю событие нажатие кнопки. Одной кнопкой F10 мне надо сначала свернуть программу (hide) и развернуть (show).

[Dmitry33RU]

Сообщение от webersol

Кнопкой на клавиатуре!

Я не вижу чтобы он это уточнал, писать нужно конкретнее что хочешь.

[Dmitry33RU]

Если по кнопке то можно зарегистрировать глобальную горячию клавишу.

Вот пример:

Чтобы программа реагировала на нажатие определённых клавиш даже в неактивном состоянии, не обязательно ставить хук на клавиатуру. Можно зарегистрировать свою горячую клавишу, при её нажатии дескриптору, указанному при регистрации, будет отправляться сообщение WM_HOTKEY. Для регистрации горячей клавиши нужно использовать функцию RegisterHotKey(), для снятия регистрации UnregisterHotKey(). Рассмотрим пример:
Сперва нужно добавить обработчик сообщений WM_HOTKEY. Для этого напишите в секции private

...
private
   procedure OnHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
...

Теперь надо реализовать этот метод.

procedure TForm1.OnHotKey(var Msg: TWMHotKey);
begin
   inherited;
   MessageBeep(0); // Любые действия при нажатии гор. клавиши
end;

И соответсвенно регистрация/снятие регистрации

procedure TForm1.FormCreate(Sender: TObject);
begin
   RegisterHotKey(Handle, Ord('U'), 0, Ord('U')); //регистрац. гор. клавиши U
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   UnregisterHotKey(Handle, Ord('U')); // снятие регистрации
end;

Обратите внимание, что после регистрации горячей клавиши при её нажатии сообщение будет отправляться только форме, для других приложений клавиша работать не будет до снятия регистрации. При нажатии клавиши U будет раздаваться пик динамика.