//声明及动态创建图片数组
var
PlayerB :Array[0..10] of TImage;
count: Integer;
…………
procedure TForm1.Image1StartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
PlayerB[PlayerBCount]:=TImage.Create(Self);
PlayerB[PlayerBCount].Picture.LoadFromFile('res\'+IntToStr(count)+'.bmp');
PlayerB[PlayerBCount].OnMouseDown:=ImgPlayerBMouseDown;
count=count+1;
end;
……………
//拖动控件到Panel2
procedure TForm1.Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source=PlayerB[0] then ……
else if Source=PlayerB[1] then ……
…………
end;请问各位大侠:最后的程序行 if 。。else if 如何用case来确定呢? case source从0一直到10 我都要写具体的操作
var
PlayerB :Array[0..10] of TImage;
count: Integer;
…………
procedure TForm1.Image1StartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
PlayerB[PlayerBCount]:=TImage.Create(Self);
PlayerB[PlayerBCount].Picture.LoadFromFile('res\'+IntToStr(count)+'.bmp');
PlayerB[PlayerBCount].OnMouseDown:=ImgPlayerBMouseDown;
count=count+1;
end;
……………
//拖动控件到Panel2
procedure TForm1.Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source=PlayerB[0] then ……
else if Source=PlayerB[1] then ……
…………
end;请问各位大侠:最后的程序行 if 。。else if 如何用case来确定呢? case source从0一直到10 我都要写具体的操作
解决方案 »
- FastReports4.3 报表 2个字段值相加
- 除了用正则表达式外 怎么写电子邮件的有效性检验
- 寻找一个键盘钩子,能否纪录键盘的输入。
- 如何将onKeyDown中的代码移植到onKeyPress中
- 寻dephi控件详细说明,带例子的书
- 用Delphi中的BDE数据库开发的程序怎样打包?
- QuickRep报表问题?
- 求StringGrid导出数据至EXCEL的方法支持多sheet,非OLE
- 心情不爽,散分
- 如何对access用自定义函数建索引
- 如何把TCanvas的一部分复制到另外一个TCanvas里面, 此外如何把TCanvas的一部分输出到一个TBitmap里面
- 咋办?表中有三个字段存储的是编号,但是在DBGridEh中显示数据记录时这三个字段要显示其名称,查询语句是动态写的(不是在属性设计器里选择字段)
var DragObject: TDragObject);
begin
PlayerB[PlayerBCount]:=TImage.Create(Self);
PlayerB[PlayerBCount].Picture.LoadFromFile('res\'+IntToStr(count)+'.bmp');
PlayerB[PlayerBCount].tag:=playerbcount;//加一句
PlayerB[PlayerBCount].OnMouseDown:=ImgPlayerBMouseDown;
count=count+1;
end;
procedure TForm1.Panel2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
case (source as Timage).tag of
…………
end;
还有别的方法吗? 或者还有别的类似tag的属性。。很头疼。。
或
name:赋值为'0','1'...
case strtoint((source as Timage).name) of
感谢yuqianyi1974 啊,给了我很大启发