hi, ich habe eine klasse von einem Thread programmiert, wo ein nachfahre in der main unit ist und jener soll eine prozedur von der mainform auslösen/aufrufen, jedoch kann ich nicht auf die prozeduren der form zugreifen, gibt es da eine möglichkeit dies zu tun oder habe ich einfach nur was falsch gemacht?

Moin Fabian,

wenn Du jetzt noch bisschen Code zeigst könnte die Frage vielleicht sogar beantwortet werden

ok leider ist noch nicht soviel gegliedert ^^

markieren

Delphi-Quellcode:

type
  TLeitrechnerForm = class(TForm)
    procedure Visualisiere; //soll ausgelöst werden

Type
  TAktuThread = class(TMyAktuThread)
  private
  protected
    procedure DoIt; override;
  end;

zusammenfalten · markieren

Delphi-Quellcode:

procedure TAktuThread.DoIt;
var i : byte;
begin
  case sende of
    1 : for i := 1 to 6 do
          if KreuzungInfos[i,6] = 'online' then
            verb[i].SendStr('get:AHS_');
    2 : for i := 1 to 6 do
          if KreuzungInfos[i,6] = 'online' then
            verb[i].SendStr('get:MOD_');
    3 : for i := 1 to 6 do
          if KreuzungInfos[i,6] = 'online' then
            verb[i].SendStr('get:ANS_');
  end;
  //hier soll nun noch ne procedure von der mainform ausgelöst werden
end;

Ruf in der Synchronize Methode der Thread-Klasse diese Prozedur auf.

der sagt compiler sagt mir sowohl mit Synchronize und ohne das TThreadMethod und Prozeduren inkomplatible typen sind

Einfach mal mutig in der Hilfe nachschlagen, das sollte alles erklären.

hmmm ich bin zu dumm ich komme zu keiner lösung....

Moin Fabian,

Du musst in der Thread-Klasse noch eine Methode einfügen.
In dieser rufst Du dann die Methode der Form auf.
Die Methode in der Thread-Klasse wird dann mit Synchronize aufgerufen.

[EDIT=Mist, Beispiel vergessen ]

zusammenfalten · markieren

Delphi-Quellcode:

Type
  TAktuThread = class(TMyAktuThread)
  private
    procedure MyThreadMethod;
  protected
    procedure DoIt; override;
  end;

implementation

procedure TAktuThread.MyThreadMethod;
begin
  Visualisiere;
end;

procedure TAktuThread.DoIt;
begin
  //....
  Synchronize(MyThreadMethod);
  //...
end;

[/EDIT]