Скачать: CL | DM;

Сворачивание окон   Найти похожие ветки 

← →
Dimich1978 ©   (2003-09-05 12:39) [0]

Код следующий
function My_EnumWindowsProc(hWnd:hwnd;param:LPARAM):BOOL;stdcall;
begin
if hwnd<>Form1.handle then //если не мое окно то свернуть
if IsWindowVisible(hWnd) then CloseWindow(hWnd);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@My_EnumWindowsProc,0);
end;
Сворачиваются все окна в том числе и мое.
окно BS:=bsSingle;
Как бороться, чтобы мое окно все же не свернулось

---

← →
Song ©   (2003-09-05 12:44) [1]

У тебя много может быть окон.
1) Окно TApplication
2) В общем случае все формы.

---

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

Скачать: CL | DM;



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