Текущий архив: 2003.09.18;
Скачать: 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 вся ветка
Текущий архив: 2003.09.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.017 c
