Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];

Вниз

Свернуть все окна   Найти похожие ветки 

← →
Gizza ©   (2006-06-26 21:25) [0]

Доброго времени...
Как, при нажатии на Button, сделать так, чтобы свернулись все окна, кроме того, на котором находится данная Button?
Спасибо...

---

← →
Gizza ©   (2006-07-01 21:09) [1]

Впринципе, можно эмулировать нажатие кнопок "Windows + D", а затем как-нибудь развернуть нужное окно..........

---

← →
Джо ©   (2006-07-02 14:31) [2]

function EnumProc (WinHandle,ThisWinHandle: HWND): BOOL; stdcall;
begin
 // ****************
 // Тут, вероятно, нужно добавить еще несколько проверок
 // покопайся в этом направлении, ибо этот пример неполон
 // и даже не проверялся на предмет работоспособности :)
 // ****************
 if WinHandle <> ThisWinHandle and IsWindowVisible(WinHandle) then
   ShowWindow (WinHandle, SW_MINIMIZE);
 Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 EnumWindows(@EnumProc,Handle)
end;


---

← →
Ketmar ©   (2006-07-02 15:31) [3]

Win+D не сворачивает окна, а выносит Desktop на передний план. сворачивает -- Win+M.

кстати, при сворачивании лучше использовать нечто типа SendMessageTimeout() или вообще PostMessage(). иначе какое-нибудь окно, которое ушло в нирвану, затормозит весь фестиваль.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.013 c