怎样在程序运行时动态建立IMAGE框？(100分)

H

huameixiaomao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-09

• #1

我要在运行时建立一个TIMAGE组件，怎么办？

 

江

江维

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-09

• #2

首先定义一个Timage
Var
FImage:TImage;
然后
FImage:=TImage.Create(Self);
Parent:=Self;//建立在窗体上
...........//设置一些位置属性
就可以啦!

 

C

cropcoco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-09

• #3

Var
FImage:TImage;
然后
FImage:=TImage.Create(self);
Parent:=Self;//建立在窗体上,为Fimage.parent 属性赋值是必不可少的
// 在创建除了窗体以外的控件中这是必须的

...........//设置一些位置,装入图形的属性
// 在不使用时别忘记将你创建的fimage 释放free

 

Z

zhang w.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-09

• #4

implementation;
{$R *.DFM}
var
iImg :TImage;
procedure TForm1.backExecute(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
iImg := TImage.Create;
iImg.Parent:=Self;
iImg.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if iImg<>nil then iImg.Free;
end

 

Y

ybcheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-15

• #5

哈，大家都给出答案了，给分吧

 

H

huameixiaomao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-16

• #6

谢了！

 

S

suxunguang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-18

• #7

good