Текущая позиция окна

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

Автор: Mike Scott

Текущую позицию можно получить от холста, используя Windows API функцию GetCurrentPosition:

CurrentX := LoWord( GetCurrentPosition( Canvas.Handle ) ) ;

CurrentY := HiWord( GetCurrentPosition( Canvas.Handle ) ) ;

{/codecitation}