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

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

← →
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 не обойтись

---

← →
Ketmar ©   (2006-08-08 18:00) [11]

> [10] malyar   (08.08.06 15:42)

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

---

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

всем спс

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

---

← →
grisme ©   (2006-08-08 18:30) [13]

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

---

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

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



Память: 0.47 MB
Время: 0.029 c