Aufgerufene Methode erkennt aufrufendes Objekt nicht.

[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.

[Bummi]

Du hattest ihn doch schon drin ??

Delphi-Quellcode:

    procedure AdsOpen();
    procedure AdsClose();
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

ich hoffe es hängt nicht an MyClass .....

[Luckie]

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

[Bummi]

Alle Klassen die von TComponent abgeleitet sind benötigen einen Owner, also jemanden der sie auch wieder freigibt.
Du kannst hier nil übergeben, mußt dann aber die Komonente selbst wieder freigeben.

Alle Klassen die von TControl abgeleitet sind benötigen einen Parent da sie irgendwo "gemalt werden müssen".

Wenn Dich die Herkunft einer einer Klasse interessiert kannst Du Dich per Klick auf die Deklaration bei gedrückter STRG-Taste durch die Hirarchie hangeln

Button:TButton Mausklick +STRG auf TButton
>>TButton = class(TCustomButton) Mausklick +STRG auf TCustomButton
>>TButtonControl>>TWinControl>>TControl>>TComponen t
>>class(TPersistent, IInterface, IInterfaceComponentReference)
>>TObject

[FriendOfDelphi]

Da die grundlegende Frage dieses Themas ja beantwortet ist, möchte ich diesen Thread als beantwortete Frage abschließen.
Vielleicht kann jemand ja noch einmal einen Link mit einem Tutorial posten, in welchem die Themen "TComponent", "TWinControl" und deren Zusammenhänge grundsätzlich erklärt werden.