动态生成TImage的问题！

[cxfirefox]

对于动态生成的TImage，要在另外一个procedure中进行操作，要如何应用呢？

[cxfirefox]

to hiflower:我有些明白了，我先试试看，到时候再请教！

[hansome]

做什么操作呢？
说明白一点啊

[lxpbuaa]

procedure AnotherProc(Image: TImage);
begin
//……
//Image.Free;也可以在调用AnotherProc后Free
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[maomaozyl]

var
image:Timage;
begin
iamge:=Timage.create(self);
.....
end;

[hiflower]

如果要在其它 procedure 中使用动态创建的 TImage，必须事先声明一个 TImage 的变量。

如：
TForm1=class(TForm)
....
private
AImage:TImage; // 也可在 public 部分，视需要而定
end;

// 也可声明为 全局变量，不推荐
var
AImage:TImage;
//也可声明为 模块变量，不推荐
implementation
var
AImage:TImage

procedure TForm1.FormCreate(Sender:TObject);
begin
AImage:=TImage.Create(nil); //动态创建 TImage
end;
procedure TForm1.FormDestroy(Sender:TObject);
begin
AImage.Free; //在其它 procedure 中使用这个 TImage
end;