Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Timages löschen.
18. Jul 2005, 15:06
Also bei mir geht es wunderbaer. Ein Beispiel:
Delphi-Quellcode:
var
Form1: TForm1;
img:TImage;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(img) then
FreeAndNil(img)
else
begin
img := TImage.Create(nil);
with img do
begin
Visible := False;
Parent := Self;
Picture.LoadFromFile('c:\test1.bmp');
AutoSize := True;
Top := 100;
Left := 100;
Visible := true;
end;
end;
end;
Katura Haris Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|