Hallö,
also ich habe mal folgendes ausprobiert:
Delphi-Quellcode:
constructor TMyObject.create(hand: LongWord;c: integer);
begin
inherited create(nil);
FHandle:=hand;
FCount:=c;
execute;
end;
procedure TMyObject.Execute;
var mo:TMyObject;
begin
if FCount<100 then mo:=TMyObject.create(FHandle, FCount+1);
PostMessage(FHandle,WM_CreateDestroy,1,1);
Self.free;
end;
Nun kann mir da jemand weiterhelfen? Er scheint bis 100 lauter Objekte zu erstellen, was er ja auch soll, nur dann steigt er mit einer Fehlermeldung aus mit Zugriffsverletzung 00000 bei 00000 oder so. Dies kommt ja eigentlich dann wenn versucht wird auf etwas zuzugreifen, was nicht da ist, aber um wen oder was handelt es sich dabei?
Aus dem Hauptfenster heraus wird das ganze in Gang gesetzt.
Gruß Minz