拖动控件
摘要:
procedure TForm1.btn1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);const sc_DragMove = $f012;begin ReleaseCapture; TM2Button(Sender).Perform(WM_SysCommand, sc_Dra... 阅读全文
posted @ 2011-03-04 11:14 龙少爷 阅读(179) 评论(0) 推荐(0) 编辑