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

[webersol]

так как можно решить вопрос?

[Dmitry33RU]

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

так как можно решить вопрос?

#10 пост я для кого написал?

[webersol]

Да, я понял, но как заставить нажатием такой клавиши свернуться окно, а при следующем нажатии развернуться.

[Dmitry33RU]

var
activ:boolean;
begin
if (activ = true) then begin
activ := false;
form1.hide;
end else begin
activ := true;
form1.show;
end;

[webersol]

форма сворачиваеться, но не разворачиваеться

[min@y™]

Да шож это блин такое? Ну скока можно мусолить?!
Вот выдрал из своей проги обработчик двойного тыка по иконке в трее:

procedure TMainForm.TrayIconDblClick(Sender: TObject);
begin
  if IsIconic(Application.Handle)
    then Application.Restore()
    else Application.Minimize();
end;

Скопипасть себе в обработчик нажатия кнопки на клаве 3 строки (от begin до end) и успокойся!

[Dmitry33RU]

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

форма сворачиваеться, но не разворачиваеться

я уже за тебя все сделал, эту проблему мог бы попробывать и сам решить, а не сразу на форум отписыватся что все плохо...

[webersol]

Всем огромное спасибо! Я разобрался, теперь всё работет!
P.S. Никто не подскажет как выловить процесс, самого спереди-стоящего окна, и убить его? Допустим повисла игра, она висит спереди всех, тут я нажимаю кнопку на клавиатуре, и моя программа убивает повисший процесс.

[min@y™]

Я разобрался, теперь всё работет!

Уверен?

как выловить процесс, самого спереди-стоящего окна, и убить его?

Начни с этого.
Ну а потом вот это жмакай и будешь в шоколаде.

[nibufep]

Сообщение от min@y™

Уверен?

Начни с этого.
Ну а потом вот это жмакай и будешь в шоколаде.

скорей всего он опять ждал готовое решение, а ты его читать заставляешь...