Create probleme

[day]

Hallo

Ich bekomme folgende fehlermeldung:
This form of method call only allowed for class methods

wieso geht das nicht?

Code:

uses
  Windows,
  ClientMain,
  StdCtrls;

type
  TMainFrame = class(TForm)
    procedure FormCreate(Sender: TObject);

  private
    mClientMain    : TClientUnit;
    mTemp          : TObject;
  public
  end;

var
  MainFrame: TMainFrame;

implementation

uses GuiController;

var mController :TGuiController;

{$R *.DFM}






procedure TMainFrame.FormCreate(Sender: TObject);
begin
  mTemp := TGuiController.Create(self);  //hier tritt der fehler auf
  mController := TGuiController(mTemp);
end;

end.

[Dax]

Wenn fTemp auch als TGUIController deklarierst, MUSS es gehen.

[jfheins]

Wie wärs damit ?

Delphi-Quellcode:

procedure TMainFrame.FormCreate(Sender: TObject); 
var
 mTemp, mController: TGuiController;
begin 
  mTemp := TGuiController.Create(self);  //hier tritt der fehler auf 
  mController := TGuiController.Create(mTemp); 
end;

Statt self (bzw. mTemp) im Create kannste auch mal nil probieren

[day]

TGuiControl ist eine klasse die ich selbst geschrieben habe und die create methode braucht einen übergabe parameter (nil geht nicht).

mTemp kann ich nicht als TGuiController deklarieren, da diese Klasse zu dem Zeitpunkt noch nicht bekannt ist.

Ich verstehe die Fehlermeldung nicht ganz?

[Gruber_Hans_12345]

Zitat:

Zitat von day

TGuiControl ist eine klasse die ich selbst geschrieben habe und die create methode braucht einen übergabe parameter (nil geht nicht).

mTemp kann ich nicht als TGuiController deklarieren, da diese Klasse zu dem Zeitpunkt noch nicht bekannt ist.

Ich verstehe die Fehlermeldung nicht ganz?

Was bekommst du für eine Fehlermeldung ?

Beim Compilieren oder zur Laufzeit ?

Ups ... gerade gesehen, das die Fehlermeldung eh oben steht ....

Kannst due den Create Teile (deklaration) deiner Klasse posten ?

[day]

Hallo

Ich konnte den Fehler eingrenzen. Es liegt am Konstruktor meiner TGuiControll klasse. und zwar wenn ich keinen Konstruktor habe dann funktioniert es und wenn ich einen eigenen habe dann geht es nicht.
wie muss ich den konstruktor definieren damit es geht?

Code:

unit GuiController;

interface

uses CommandHandler,
     OffertInformationContainer,
     Command;


type
  TGuiController = class(TObject)

  private
    mCommandHandler : TCommandHandler;
    mOffertInfoContainer : TInfoContainer;

  public
    procedure create();
    procedure ActivateNewOffertView(NewOffertFrame: TNewOffertFrame);


  end;

implementation


  
  procedure TGuiController.create();
  begin
    mCommandHandler      := TCommandHandler.Create();
    mOffertInfoContainer := TInfoContainer.Create();
  end;

 
  procedure TGuiController.ActivateNewOffertView(NewOffertFrame: TNewOffertFrame);
  begin


  end;
end.

[Chewie]

Wenn create der Konstruktor sein soll, wovon ich ausgehe, dann muss dieser auch als solcher mittels dem Schlüsselwort constructor deklariert werden und nicht mit procedure.

[Gruber_Hans_12345]

Zitat:

Zitat von day

Hallo

Ich konnte den Fehler eingrenzen. Es liegt am Konstruktor meiner TGuiControll klasse. und zwar wenn ich keinen Konstruktor habe dann funktioniert es und wenn ich einen eigenen habe dann geht es nicht.
wie muss ich den konstruktor definieren damit es geht?

Code:

unit GuiController;

interface

uses CommandHandler,
     OffertInformationContainer,
     Command;


type
  TGuiController = class(TObject)

  private
    mCommandHandler : TCommandHandler;
    mOffertInfoContainer : TInfoContainer;

  public
    procedure create();
    procedure ActivateNewOffertView(NewOffertFrame: TNewOffertFrame);


  end;

implementation


  
  procedure TGuiController.create();
  begin
    mCommandHandler      := TCommandHandler.Create();
    mOffertInfoContainer := TInfoContainer.Create();
  end;

 
  procedure TGuiController.ActivateNewOffertView(NewOffertFrame: TNewOffertFrame);
  begin


  end;
end.

der Konstruktor muss auch als Konstruktor definiert werden !

Delphi-Quellcode:

 public
    constructor create();

Gruss Hans

[Spezi1980]

Ich persöhnlich würde zur Sicherheit auch noch ein inherited im Constructor aufrufen.

Delphi-Quellcode:

constructor TGuiController.create(); 
  begin 
    inherited Create;
    mCommandHandler      := TCommandHandler.Create(); 
    mOffertInfoContainer := TInfoContainer.Create(); 
  end;

[day]

Hallo

Ich brauche dringend eine Pause. :wall: Habe ich voll übersehen.

Danke für die Hilfe.