Aus Class procedure property ausführen?

[gandime]

Hi,
hier schonmal der Code in kurzer Form:

Delphi-Quellcode:

type

  TOnFinished = procedure(Sender: TThread) of object;
  TIRCThread = class(TThread)
  private


    class procedure IRCOff(Sender: TObject);
  protected
    procedure Execute; override;
  public

    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
    property OnFinished: TOnFinished read FOnFinished write FOnFinished;
  end;

class procedure TIRCThread.IRCOff(Sender: TObject);
begin
  OnFinished(Self);// hier meldet er sich:
end;

Zitat:

[DCC Fehler] UIRCThread.pas(386): E2076 Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt

was mache ich falsch?


mfg
gandime

[DeddyH]

Der Witz bei Klassenmethoden ist ja, dass diese keine Instanz brauchen. Deshalb kannst Du aber auch nicht auf solche zugreifen(Self geht also genauso wenig wie der Zugriff auf dessen Property).

[gandime]

Das is natürlich ordentlich doof...
Und wie bekomme ich jetzt an mein Hauptprogramm ne Nachricht, das der Thread fertig ist?
is nen NonVCL Prog!

[DeddyH]

Weshalb ist das überhaupt eine class procedure? Im Moment kann ich nicht erkennen, wieso das so sein soll.

[himitsu]

indem du keine Klasenprozedur verwendest?

[gandime]

da ich sonst beim zuweisen von IRCOFF folgenden Fehler bekomme:

Zitat:

[DCC Fehler] UIRCThread.pas(355): E2010 Inkompatible Typen: 'TNotifyEvent' und 'Procedure'

bei folgendem Code:

Delphi-Quellcode:

//property vom IRC:
  property OnOff: TNotifyEvent read FOnLoggedOff write FOnLoggedOff;
//procedure wird der property zugewiesen
  IRC.OnOff:=TIRCThread.IRCOff;

[himitsu]

TNotifyEvent entspricht doch aber keiner Klassenprozedur?

Delphi-Quellcode:

procedure (Sender: TObject) of object;   =   procedure MyProzedure(Sender: TObject);
procedure (Sender: TObject) of class;    =   class procedure MyProzedure(Sender: TObject);

du mußt IRCThread.IRCOff; benutzen

IRCThread > also eine Instanz von TIRCThread und nicht den Typ

z.B.:

Delphi-Quellcode:

IRC.OnOff := IRCOff;
IRC.OnOff := Self.IRCOff;
IRC.OnOff := IRC.IRCOff;

[sirius]

nonVCL und TThread

[himitsu]

TThread gehört sozusagen zur CL (VCL = Visual...., also sichtbar)

[gandime]

bei zuweisen der property mit self brauche ich zum glück keine class procedure also problem gelöst danke