Moin
Ich finde keine Informationen darüber ob und falls ja, wie ich in einem Thread eine Form self-createn kann. Geht das überhaupt?
Delphi-Quellcode:
procedure TKeyinside.Execute;
begin
if DarfLaufen <> 'Nein' then begin
if not Assigned(Form_Check) then begin
Form_Check := TForm_Check.Create(self);
Form_Check.INI_Auslesen;
if Form_Check.Checkit = falsethen
Form_Check.ShowModal;
Form_Check.Destroy;
Form_Check := nil;
DarfLaufen := '';
end;
end;
end;
procedure TMainForm.Timer3Timer(Sender: TObject);
begin
// Der Timer sollte ursprünglich nur zum lostreten eines Threads dienen
// Testweise so eingebunden
Keyinside := TKeyinside.Create(true); // Thread inaktiv erzeugen
Keyinside.FreeOnTerminate := true; // Thread nach dem Beenden freigeben
Keyinside.Resume; // Thread aktivieren
end;
Der Debugger meckert -> Die 'Execute' meckert jetzt, daß die Komponenten inkompatible sind.
Kann man in Threads Form.create(self) anwenden? - Wenn ja - wie gehts richtig?
Danke