諸位DELPHI前輩吉祥: 小弟初學,雖參詳其他問題回覆情況,遇下列問題,尚請能者撥冗見覆. var a:array[1..5] of timage; i:integer; begin for i:=1 to 5 do begin a[i]:=timage.Create(self); a[i].Parent:=self; a[i].Picture :=image1.Picture ; --->image1.picture已設定圖案 a[i].Top:=100; a[i].Left:=i*80; a[i].Stretch:=true; a[i].OnClick:=image1click; end; end; procedure TForm1.Image1Click(Sender: TObject); begin edit1.text:=tedit(sender).text; ---->始終抓不到索引值????? end; 請問好心人,要如何才能,於按下image後,抓到索引值呢? 感激不盡!!

不是十分精楚你要甚麼索引值....若你指的是 Array 中的第幾個的話，可以試試 :

var
 a:array[1..5] of timage;
 i:integer;
begin
  for i:=1 to 5 do
  begin
    a[i]:=timage.Create(self);
    a[i].Parent:=self;
    a[i].Picture :=image1.Picture ;   --->image1.picture已設定圖案
    a[i].Top:=100;
    a[i].Left:=i*80;
    a[i].Stretch:=true;
    a[i].Tag := i;
    a[i].OnClick:=image1click;
  end;
end;    procedure TForm1.Image1Click(Sender: TObject);
begin
  edit1.text:= IntToStr(TImage(sender).Tag));   ---->始終抓不到索引值?????
end;

感謝版主....向您獻上最敬禮... . ....[ 敬 禮 !]....很大聲的.... 這是我第一次發問,內心充滿了感激及信心.

你好： 我再這邊順便補充一下，TList 物件可以更容易管理物件陣列喔。 下面的例子參考看看吧 < class="code"> unit MainSrc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private FImageList : TList; procedure ImageClick (Sender : TObject); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i : integer; idx : integer; begin FImageList := TList.Create; for i := 0 to 4 do begin idx := FImageList.Add(TImage.Create(self)); with TImage(FImageList.Items [idx]) do begin Top := 0; Left := i * 20; Width := 10; Height := 10; OnClick := ImageClick; Parent := self; Picture.LoadFromFile ('.\豬頭.BMP'); end; end; end; procedure TForm1.FormDestroy(Sender: TObject); begin FreeAndNil (FImageList); end; procedure TForm1.ImageClick(Sender: TObject); begin ShowMessage (format ('我是編號 %d 的豬頭。', [FImageList.IndexOf(Sender)])); end; end. 豬頭在這，將他放在與執行檔相同的路徑，你也可以放別的圖檔測試 ^^