сообщение окну : свернуть и развернуть

← →
malyar (2006-08-08 12:17) [0]

кокое сообщение надо передать окну чтоб его свернуть и развернуть

← →
umbra © (2006-08-08 12:20) [1]

WM_SYSCOMMAND

← →
clickmaker © (2006-08-08 12:58) [2]

проще ShowWindow(Handle, SW_MINIMIZE)

← →
malyar (2006-08-08 13:23) [3]

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

procedure TForm1.Button1Click(Sender: TObject);
var hnd:hwnd;
begin
hnd:=form1.Handle;
sendmessage(hnd,wm_syscommand,SC_MINIMIZE,0);
sleep(1000);
sendmessage(hnd,wm_syscommand,SC_RESTORE,0);
end;

← →
Ketmar © (2006-08-08 13:30) [4]

> [3] malyar (08.08.06 13:23)

умница. сообщения во время Sleep() телепатор должен обрабатывать?

← →
umbra © (2006-08-08 13:44) [5]

Не могу объяснить почему, но замените form1.Handle на Application.Handle - и все будет работать.

← →
clickmaker © (2006-08-08 13:46) [6]

у Application есть метод Minimize, если уж на то пошло. Зачем сообщения?

← →
malyar (2006-08-08 13:47) [7]

to ketmar

чтото я не понял чем sleep помешал веть код выполняется последовательно

← →
clickmaker © (2006-08-08 14:48) [8]

> malyar (08.08.06 13:47) [7]

если не брать в расчет явную бессмысленность кода, то он корректен, только надо заменить
hnd := Application.Handle;

потому как роль главного окна дельфийского приложения играет Application и его хэндл

← →
Сергей М. © (2006-08-08 14:55) [9]

> malyar (08.08.06 13:23) [3]

procedure TftmMain.Button1Click(Sender: TObject);
begin
WindowState := wsMinimized;
sleep(1000);
WindowState := wsNormal;
end;

← →
malyar (2006-08-08 15:42) [10]

код дествительно не имеет смысла так как является тестовым, потом ему предстоит работать в чужом А.П. и без sendmessage не обойтись

> [10] malyar (08.08.06 15:42)

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

← →
malyar (2006-08-08 18:20) [12]

всем спс

hnd := Application.Handle; то что надо

malyar (08.08.06 13:47) [7]
плохо знаем работу приложения в среде Вынь32?:0)

сообщение окну : свернуть и развернуть Найти похожие ветки