F flyboat2005 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-08 #1 请问怎样动态创建一个Image 对象？ 然后释放它？
F flyboat2005 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-08 #2 请问怎样动态创建一个Image 对象？ 然后释放它？
S suninrain Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-08 #3 var image:timage; begin try image:=timage.create(nil); image.parent:=form1.handel; image.left:=0; //top,width,height //do something; finally image.free; end; end;
var image:timage; begin try image:=timage.create(nil); image.parent:=form1.handel; image.left:=0; //top,width,height //do something; finally image.free; end; end;
H hs-kill Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-08 #4 uses ExtCtrls; procedure TForm1.Button1Click(Sender: TObject); var img:Timage; begin //创建 img:=Timage.Create(self); img.Picture.LoadFromFile('d:/logo.jpg'); img.Parent:=self; //释放 if assigned(img) then begin img.Free; img:=nil; end; end;
uses ExtCtrls; procedure TForm1.Button1Click(Sender: TObject); var img:Timage; begin //创建 img:=Timage.Create(self); img.Picture.LoadFromFile('d:/logo.jpg'); img.Parent:=self; //释放 if assigned(img) then begin img.Free; img:=nil; end; end;
天 天道酬勤 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-08 #5 procedure TForm1.Button1Click(Sender: TObject); var Image1: TImage; begin Image1:=TImage.Create(Form1); Image1.Parent:=Form1; Image1.Top:=100; Image1.Left:=100; Image1.Width:=200; Image1.Height:=300; Image1.Picture.LoadFromFile('C:/WINNT/CIBAB.BMP'); Image1.Free; end;
procedure TForm1.Button1Click(Sender: TObject); var Image1: TImage; begin Image1:=TImage.Create(Form1); Image1.Parent:=Form1; Image1.Top:=100; Image1.Left:=100; Image1.Width:=200; Image1.Height:=300; Image1.Picture.LoadFromFile('C:/WINNT/CIBAB.BMP'); Image1.Free; end;
