Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

сообщение окну : свернуть и развернуть [D7, XP]

malyar © (2006-08-08 12:17:00)
кокое сообщение надо передать окну чтоб его свернуть и развернуть

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

malyar (2006-08-08 18:20:00) [2]
всем спс

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

Ketmar (2006-08-08 18:00:00) [3]
> [10] malyar (08.08.06 15:42)

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

malyar (2006-08-08 15:42:00) [4]
код дествительно не имеет смысла так как является тестовым, потом ему предстоит работать в чужом А.П. и без sendmessage не обойтись

Сергей М. (2006-08-08 14:55:00) [5]

> malyar (08.08.06 13:23) [3]

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

clickmaker (2006-08-08 14:48:00) [6]

> malyar (08.08.06 13:47) [7]

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

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

malyar (2006-08-08 13:47:00) [7]
to ketmar

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

clickmaker (2006-08-08 13:46:00) [8]
у Application есть метод Minimize, если уж на то пошло. Зачем сообщения?

umbra (2006-08-08 13:44:00) [9]
Не могу объяснить почему, но замените form1.Handleна Application.Handle- и все будет работать.

Ketmar (2006-08-08 13:30:00) [10]
> [3] malyar (08.08.06 13:23)

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

malyar (2006-08-08 13:23:00) [11]
почему этот код не выполняется дважды тобиш окно сворачивается потом разворачивается а вот повторный запуск етого кода не приводит ни к каким результатам

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;

clickmaker (2006-08-08 12:58:00) [12]
проще ShowWindow(Handle, SW_MINIMIZE)

umbra (2006-08-08 12:20:00) [13]
WM_SYSCOMMAND

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »