Стандартная кнопка максимизации,

← →
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)

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

Игорь Шевченко © (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;
Это ловит верно, но тогда ведь надо самому писать обработчитки всех кнопок(ну это можно) и даже перетаскивания(а вот с этим траблы), так ведь или можно как-то переправить мессагу туда куда она шла?

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

ZEE,

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

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