标签：blog http color for 2014 div log ef
procedure TForm1.Button1MouseDown(Sender:
TObject; Button: TMouseButton;
Shift: TShiftState; X, Y:
Integer);
const
SC_DragMove
= $F012;
begin
Begin
ReleaseCapture;
Button1.perform(WM_SysCommand,
SC_DragMove, 0);
End;
end;标签：blog http color for 2014 div log ef
原文地址：http://www.cnblogs.com/xe2011/p/3876206.html
