delphi 无标题栏时，窗体跟随其他控件移动的方法
procedure image1.onMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);
end
posted on 2011-12-13 13:15 cn三少<script></script> 阅读(329) 评论(0) 编辑 收藏 举报
