Von hinten durch die Brust ins Auge:

markieren

Delphi-Quellcode:

procedure TMyThread.Execute;
var
   dynform : TFrmGMaps;
begin
  dynform := TFrmGMaps(Application.FindComponent(FrmMain.GmapThreadname));
  // ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Der Thread braucht offensichtlich ein TFrmGMaps-Objekt für seine Arbeit.
Dann wäre es sehr sinnvoll, wenn man dem Thread dieses Objekt von Aussen geben würde.
Dadurch, dass der Thread sich diese Info selbst besorgen muss, entsteht ein Kuddelmuddel.
Der Thread braucht und soll die Objekte "Application" und "FrmMain" nicht kennen.

zusammenfalten · markieren

Delphi-Quellcode:

TMyThread = class(TThread)
public
   dynform : TFrmGMaps; // NEU <====
   procedure execute; override;
end;

procedure TFrmGMaps.btn_querystartClick(Sender: TObject);
...
begin
...
// und Erzeugen sieht dann so aus
  MThread := TMyThread.Create(True);
  MThread.FreeOnTerminate := True;
  MThread.OnTerminate := threadend;
  MThread.dynform := self; // <===

Zitat von sx2008:

Von hinten durch die Brust ins Auge:

markieren

Delphi-Quellcode:

procedure TMyThread.Execute;
var
   dynform : TFrmGMaps;
begin
  dynform := TFrmGMaps(Application.FindComponent(FrmMain.GmapThreadname));
  // ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Der Thread braucht offensichtlich ein TFrmGMaps-Objekt für seine Arbeit.
Dann wäre es sehr sinnvoll, wenn man dem Thread dieses Objekt von Aussen geben würde.
Dadurch, dass der Thread sich diese Info selbst besorgen muss, entsteht ein Kuddelmuddel.
Der Thread braucht und soll die Objekte "Application" und "FrmMain" nicht kennen.

zusammenfalten · markieren

Delphi-Quellcode:

TMyThread = class(TThread)
public
   dynform : TFrmGMaps;
   procedure execute; override;
end;

procedure TFrmGMaps.btn_querystartClick(Sender: TObject);
...
begin
...
// und Erzeugen sieht dann so aus
  MThread := TMyThread.Create(True);
  MThread.FreeOnTerminate := True;
  MThread.OnTerminate := threadend;
  MThread.dynform := self; // <===
// ^^^^^^^^^^^^^^ => Fehler

Wird nicht gefunden

Mit einer globalen Var und dann: dynform := TFrmGMaps(Application.findcomponent(threadname)); geht es ...
Warum nicht Application. x..... ?

Gruss
MC

Zitat von mcinternet:

Mit einer globalen Var und dann: dynform := TFrmGMaps(Application.findcomponent(threadname)); geht es ...
Warum nicht Application. x..... ?

Du hast bestimmt schon gehört, dass man globale Variablen vermeiden soll.
Dafür gibt es mehrere Gründe; die vollständige Liste kann ich leider nur auf Englisch anbieten:
http://c2.com/cgi/wiki?GlobalVariablesAreBad
Globale Variablen sind sozusagen das Gegenteil von Objekt-orientierter-Programmierung bei der man versucht, alle Aspekte möglichst lokal zu behandeln. (Stichwort: Datenkapselung)

Zitat von mcinternet:

Wird nicht gefunden

Du hast bestimmt vergessen die Klasse "TMyThread" zu erweitern.

markieren

Delphi-Quellcode:

TMyThread = class(TThread)
public
   dynform : TFrmGMaps; // <== das fehlt bei dir
   procedure execute; override;
end;

Hier noch das Grundprinzip:
Bevor ein Thread gestartet wird, gibt man ihm von Aussen alle Informationen, die er braucht.
Der Thread kann sich dann ganz auf seine Aufgabe konzentrieren; er braucht nicht Application.FindComponent aufrufen, weil er sämliche Infos (Objekte, Daten, Werte) schon beim Start bekommen hat.