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