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