Как узнать, была ли перемещена форма?
Как узнать, была ли перемещена форма?
(...)
type
TfrmMain = class(TForm)
private
procedure OnMove(var Msg: TWMMove); message WM_MOVE;
end;
(...)
procedure TfrmMain.OnMove(var Msg: TWMMove);
begin
inherited;
(...)
end;
(...)
Взято с Исходников.ru