鼠标左右键的功能
Form上的一个image，，用鼠标左键按住移动
右键按住可以改变image的大小。
（右键按住image的左边，，往右拖。image的右边框不动，左边框向右边移动，image开始减小。
往左拉，，image开始向左边加长）
给个例程，大哥
[解决办法]
在窗体或组件的 OnMouseDown 事件中加入以下代码:
if(Button == mbLeft)
{
ReleaseCapture();
SendMessage( Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
}
拖拉的那个回家帮你写了，下班了！
[解决办法]
把Image放在Panel上
Image的Align属性设为alClient
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button == mbLeft)
{
ReleaseCapture();
SendMessage( Panel1-> Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
}
}
就可以移动了
