15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

(...)

Type
    TfrmMain = Class( TForm )
        Private
            Procedure OnMove( Var Msg : TWMMove ); Message WM_MOVE;
        End;

(...)

Procedure TfrmMain.OnMove( Var Msg : TWMMove );
Begin
    Inherited;
    (...)
End;

(...)