请帮个忙!! 我在FORM上方了一个IMAGE,然后在此IMAGE上动态生成好多的图标,我现在想移动IMAGE时,他上面的图标也跟着动。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure Tdz.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);。myimage:=Timage.Create(self); myimage.Left:=x; {创建位置} myimage.Top:=y; inc(counter5); myimage.picture.LoadFromFile('e:\pic\fanshe.bmp'); myimage.Name:='fs'+inttostr(counter5); {记录一个组件} myimage.ShowHint:=TRUE; myimage.hint:=inttostr(counter5)+'ss; myimage.parent:=self;如何使X,Y是相对与地图的坐标。 怎么显示子窗体? 报表高手帮忙啊+——————+在线等待!!! 请教高手三层程序中的问题,急 我做了一个nt服务,用TADOConnection连接数据库,如果在控件的ConnectionString属性添上连接字符串,连接成功。如果在程序中填写则连接失 有关ADO导入导出EXCEL等文件的问题 请问传送视频要用IdTCP好,还是IdUDP好? 怎么知道TADOQuery的返回值类型(高分) 推荐一个申请免费域名的网址和方法 请教局域网问题! Delphi中资源文件的制作 不吝高分,请教DLL在DELPHI中调用 关于ShellTreeView
Shift: TShiftState; X, Y: Integer);
。
myimage:=Timage.Create(self);
myimage.Left:=x; {创建位置}
myimage.Top:=y;
inc(counter5);
myimage.picture.LoadFromFile('e:\pic\fanshe.bmp');
myimage.Name:='fs'+inttostr(counter5); {记录一个组件} myimage.ShowHint:=TRUE;
myimage.hint:=inttostr(counter5)+'ss;
myimage.parent:=self;如何使X,Y是相对与地图的坐标。