如何将控件名以变量的形式 |
答題得分者是:aquarius
|
chenliyan163
一般會員 發表:30 回覆:30 積分:12 註冊:2003-09-15 發送簡訊給我 |
|
aquarius
資深會員 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
沒有直接的方法, 但有間接的方法可用. 看是要直接用 FindComponent 或是先記在 TList 中, 都是可行的方法.
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, JPEG; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; Image2: TImage; Image3: TImage; Image4: TImage; Image5: TImage; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } lstImage : TList ; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i : integer ; begin for i:=0 to lstImage.Count-1 do begin TImage(lstImage[i]).Picture.LoadFromFile('C:\t001.jpg') ; ShowMessage('Load Image' inttostr(i 1) ' OK') ; end ; end; procedure TForm1.FormCreate(Sender: TObject); var i : integer ; begin lstImage:=TList.Create ; for i:=1 to 5 do begin lstImage.add(FindComponent('Image' inttostr(i))) ; end ; end; procedure TForm1.FormDestroy(Sender: TObject); begin if Assigned(lstImage) then begin FreeAndNil(lstImage) ; end ; end; end....Aquarius
------
水瓶男的blog: http://791909.blogspot.com |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |