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

Стандартная кнопка максимизации,   Найти похожие ветки 

← →
XenonXX ©   (2003-10-31 08:22) [0]

как перехватить ее нажатие и отреагировать? А то надо реагировать не как на ресайз.

---

← →
ZEE ©   (2003-10-31 10:55) [1]

WM_SIZE + SIZEICONIC - по другому думаю врядли

---

← →
AbrosimovA   (2003-10-31 12:05) [2]

А так например:

procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnMinimize := OnMinimize;
end;

procedure TMainForm.OnMinimize(Sender : TObject);
begin
..............//Здесь твоя реакция
end;

---

← →
AbrosimovA   (2003-10-31 12:09) [3]

Извините, ответ мой не в тему.

---

← →
Игорь Шевченко ©   (2003-10-31 12:16) [4]

WM_SYSCOMMAND SC_MAXIMIZE - не получается ?

---

← →
DVM ©   (2003-10-31 12:21) [5]

> Игорь Шевченко © (31.10.03 12:16) [4]

Он этот вопрос уже задавал, ему ответили - ноль внимания.

---

← →
ZEE ©   (2003-10-31 12:28) [6]

упс, ошибочка у меня в [1]
надо наверно
WM_SIZE + SIZEFULLSCREEN
хотя про SC_MAXIMIZE я как-то вообще не подумал...

---

← →
Игорь Шевченко ©   (2003-10-31 12:32) [7]

DVM © (31.10.03 12:21)

Это не там, случайно, где просьба удалить ветку, была ?

---

← →
XenonXX ©   (2003-11-04 06:27) [8]

Игорь Шевченко © (31.10.03 12:16) [4]
WM_SYSCOMMAND SC_MAXIMIZE - не получается ?

Если так делать, то

procedure WM_SYSCOMMAND1 (Var Msg: TMessage); message WM_syscommand;
...........................
procedure TForm1.WM_SYSCOMMAND1;
begin
if Msg.WParam=SC_MAXIMIZE then
begin
///something
end;
end;

Это ловит верно, но тогда ведь надо самому писать обработчитки всех кнопок(ну это можно) и даже перетаскивания(а вот с этим траблы), так ведь или можно как-то переправить мессагу туда куда она шла?

---

← →
ZEE ©   (2003-11-04 10:32) [9]

if Msg.WParam=SC_MAXIMIZE then
begin
///something
end else inherited; ???

---

← →
XenonXX ©   (2003-11-04 16:51) [10]

ZEE,

Аригато, сенсей!(="Спасобо мастер") Тормозил я утром после ночи в интернете...

---

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

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



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