Hallo,
Ich habs mal mit Threads ausprobiert und hat auch geklappt mit den Startwerten 100, 99, 98 aber nicht mit 0...da gabs dann erstmal einen üblen Systemhänger
Jetzt kann ich nicht mal mehr das Programm starten...da kommt dann eine Fehlermeldung Runtime-Error 216 at Adress ...
und das obwohl ich schon in der Projektdatei einen Breakpoint gesetzt habe.
Hier mal mein Code, ist ja nix wildes:
unit Main:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
myobject:=TMyObject.create(
handle,0);
end;
procedure TForm1.GetMessage(
var msg: TMessage);
begin
i:=i+msg.wparam;
label1.caption:=inttostr(i);
end;
unit MyObject:
Delphi-Quellcode:
constructor TMyObject.create(hand: LongWord;c: integer);
begin
FHandle:=hand;
FCount:=c;
inherited create(false);
FreeOnTerminate:=true;
end;
procedure TMyObject.Execute;
var mo:TMyObject;
begin
if FCount<100 then begin
mo:=TMyObject.create(FHandle, FCount+1);
end;
PostMessage(FHandle,WM_CreateDestroy,1,1);
end;
Gruß Minz