Как узнать, была ли перемещена форма?
Falk0ner, вс, 06/07/2008 - 15:34.
type
TfrmMain = class(TForm)
private
procedure OnMove(var Msg: TWMMove); message WM_MOVE;
end;
(...)
procedure TfrmMain.OnMove(var Msg: TWMMove);
begin
inherited;
(...)
end;
(...)
TfrmMain = class(TForm)
private
procedure OnMove(var Msg: TWMMove); message WM_MOVE;
end;
(...)
procedure TfrmMain.OnMove(var Msg: TWMMove);
begin
inherited;
(...)
end;
(...)
Взято из http://forum.sources.ru
Отправить комментарий