delphi中image的图片处理
有三个按钮"放大"，“缩小”，“移动”
当点击“放大”或“缩小”是图片在放大或缩小的时候图片与图片之间的间距不变，在点击“移动”之后鼠标可以任意移动图片，我刚学delphi老师给我布置了这个任务，我不知道如何下手，请各位帮帮忙啊，在这先谢了！
间距不变，就是重新设置image的坐标位置
移动图片，就是在鼠标事件中去处理（mousedown，mousemove，mouseup），让image随着鼠标移动
不是这样的，有两张图片image1,image2，点击“放大”按钮时，两张图片同时放大，但是他们原有的间距不变，拖动就是鼠标拉着图片随便移动啊
谁能做过图片用到坐标的事例给我看看啊
//移动
procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Image2.Top := Image2.Top + y;
Image2.Left := Image2.Left + x;
end;
end;
学习一下
高手们给在下点思路啊
.....
相关问答：
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时 ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
