@ 3_of_8:
Zitat:
[...] einmal im destructor.
@DeddyH: bitteschön:
Delphi-Quellcode:
initialization
Klasse := TKlasse.Create(Klasse); //Ob das wohl so stimmt???
end.
Delphi-Quellcode:
//Klassendefinition habt ihr ja schon oben
constructor TKlasse.Create(AOwner: TComponent);
var
begin
inherited Create(AOwner);
Bild := TImage.Create(AOwner);
with Bild do
begin
Parent := Self;
Transparent := true;
//usw. - alles, was man hier tun will, geht, ohne dass es beim Schließen einen Fehler erzeugt
end;
end;
destructor TKlasse.Destroy;
begin
Bild.Free; //da wirds gekillt
end;
Wenn ich jetzt in irgendwelche "hauseigenen" Prozeduren (z.B. wie oben procedure TKlasse.MachWas
z.B. Bild.Top := 5; reinschreibe, dann gibts beim Schließen n Fehler
Was mich ja am Meisten fuchst, ist, dass - wenn ich die Passage aus der Prozedur rausnehme - sowohl "Bild" als auch das andere TImage-Objekt funktioniert