Aufgerufene Methode erkennt aufrufendes Objekt nicht.

[FriendOfDelphi]

Das Glauben überlassen wir lieber dem Papst...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); //<-- und die beiden Methoden aus der Klasse
begin
  Test:=TNotifikationen.Create(self);
  Test.Visible := false;
  Test.Parent := self;
end;

Aber das ist es leider nicht.
Der Fehler tritt leider nach wie vor auf

[DeddyH]

Dann wäre die fehlerverursachende Zeile recht hilfreich.

[FriendOfDelphi]

Zitat von DeddyH:

Dann wäre die fehlerverursachende Zeile recht hilfreich.

Schau mal weiter oben. In Nachricht #3 findest Du die fehlerverursachende Zeile.

[Bummi]

Gib mal dem Constructor versuchsweise den Parent mit, vielleicht passiert dort schon zuviel (etwas was einen Parent erfordert)....

[FriendOfDelphi]

Zitat von Bummi:

Gib mal dem Constructor versuchsweise den Parent mit, vielleicht passiert dort schon zuviel (etwas was einen Parent erfordert)....

Wenn ich das mache

Delphi-Quellcode:

constructor TNotifikationen.Create;
begin
  Parent := self;
  AdsOpen();
  inherited; //inherited ruft die gleichnamige Methode der Vorfahrklasse auf
end;

erhalte ich folgende Fehlermeldung:
"Im Projekt Soundso.exe ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Ein Steuerelement kann nicht sich selbst als Vorfahr haben'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."

[Bummi]

Den Parent als Parameter mitgeben meinte ich wenn der Owner ein Wincontrol ist kannst Du auch parent=Owner setzen.

[FriendOfDelphi]

Zitat von Bummi:

Den Parent als Parameter mitgeben meinte ich wenn der Owner ein Wincontrol ist kannst Du auch parent=Owner setzen.

Kannst Du bitte mal ein Stück Beispielcode schreiben, wie Du das meinst.

[Bummi]

Delphi-Quellcode:

constructor TMyClass.Create(AOwner: TComponent);
begin
  inherited;
  if AOwner is TWincontrol then Parent := TWincontrol(AOwner);
  //...
end;

constructor TMyClass.CreateWithParent(AOwner: TComponent; AParent: TWinControl);
begin
  inherited Create(AOwner);
  Parent := AParent;
  //...
end;

[FriendOfDelphi]

Zitat von Bummi:

Delphi-Quellcode:

constructor TMyClass.Create(AOwner: TComponent);
begin
  inherited;
  if AOwner is TWincontrol then Parent := TWincontrol(AOwner);
  //...
end;

Ich habe zwar noch nicht verstanden warum, aber so funktioniert es.

Zitat von Bummi:

Delphi-Quellcode:

constructor TMyClass.CreateWithParent(AOwner: TComponent; AParent: TWinControl);
begin
  inherited Create(AOwner);
  Parent := AParent;
  //...
end;

So funktioniert es (noch) nicht.
Wenn ich den Konstruktor so im Deklarationsteil der Klasse hinschreibe, meldet der Kompiler folgende Fehlermeldung:
"Deklaration von 'Create' unterscheidet sich von vorheriger Deklaration".

Könntest Du bitte auch noch etwas erläutern, wie der beschriebene Code funktioniert, damit ich das verstehe und nachvollziehen kann.
Schon mal vielen Dank.

[Luckie]

Logisch. Self ist ja auch die Referenz auf die Klasse selber.