Как узнать, была ли перемещена форма

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

type

TfrmMain = class(TForm)

private

procedure OnMove(var Msg: TWMMove); message WM_MOVE;

end;

procedure TfrmMain.OnMove(var Msg: TWMMove);

begin

inherited;

end;

{/codecitation}

Добавить комментарий