Отловить событие формы при перетаскивании ее за Caption ???

← →
ЮРИЙ_К © (2003-03-25 16:51) [0]

Коллеги, как САБЖ в конце перетаскивания ?

← →
Clickmaker © (2003-03-25 16:53) [1]

WM_MOVE

← →
ЮРИЙ_К © (2003-03-25 16:57) [2]

>> Clickmaker это не стандартное ? Как его прикрутить?

← →
Clickmaker © (2003-03-25 17:05) [3]

type
TYourForm = class
...
procedure WMMove(var Message: TMessage); message WM_MOVE;

>> Clickmaker

Проверил, получилось, однако WM_MOVE отслеживает слишком оперативно, при открытии формы сработало 3 раза. Это не совсем то, мне нужно было, что-бы только тогда, когда ша шапку таскаешь, и причем в конце. ВО надыбал в Кулибе, именно то, что нуно 8-). Кому надо - пользуйтесь
public
procedure WMEXITSIZEMOVE(var Message: TMessage);
message WM_EXITSIZEMOVE;

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
Form1.Caption := "Finished Moving and sizing";
end;

Отловить событие формы при перетаскивании ее за Caption ??? Найти похожие ветки