Aufgerufene Methode erkennt aufrufendes Objekt nicht.

[FriendOfDelphi]

Zitat von 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 .....

Richtig. Der erste Lösungsvorschlag hat ja auch funktioniert.
Den zweiten Lösungsvorschlag habe ich dann auch ausprobiert und den Konstruktor entsprechend geändert:

Delphi-Quellcode:

//    constructor Create(AOwner: TComponent); override;
    constructor Create(AOwner: TComponent; AParent: TWinControl); override;

Und dann kam die Fehlermeldung.
Aber so langsam fällt der Groschen.
In der zweiten Lösung hattest Du den Konstruktor ja anders genannt und wohl aus gutem Grund. constructor TMyClass.CreateWithParent(AOwner: TComponent; AParent: TWinControl); Ich habe meinen ursprünglichen Namen verwendet. Wahrscheinlich hängt es damit zusammen, richtig?
Kann man dem eigenen Konstruktor nur soviele Parameter übergeben, wie der Konstruktor der Basisklasse hat? Soweit ich weiß, müßte das doch gehen.
Wie macht man das in diesem Fall?

[Bummi]

Du kannst den Konstruktor wie jede Prozedur auch Überladen

Delphi-Quellcode:

  TMyClass=Class(TButton)
    Constructor Create(Aowner:TComponent;AParent:TWinControl);overload;
  End;

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with TMyClass.Create(self) do
    begin
    left := 100;
    Parent := Self;
    end;
  with TMyClass.Create(self,self) do
    begin
    left := 200;
    end;
end;

[FriendOfDelphi]

Zitat von Bummi:

Du kannst den Konstruktor wie jede Prozedur auch Überladen

Delphi-Quellcode:

  TMyClass=Class(TButton)
    Constructor Create(Aowner:TComponent;AParent:TWinControl);overload;
  End;

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

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with TMyClass.Create(self) do
    begin
    left := 100;
    Parent := Self;
    end;
  with TMyClass.Create(self,self) do
    begin
    left := 200;
    end;
end;

Vielen Dank für den ausfürlichen Beispielcode.

Wäre es möglich die Funktionalität des Codes noch etwas zu erläutern, damit ich das nachhaltig verstehen und nachvollziehen kann?
Wie und warum müssen zum Beispiel die Aufrufparameter "Aowner:TComponent, AParent:TWinControl und AOwner" so gewählt werden?

[Bummi]

jetzt habe ich einen Hänger...
was genau meinst Du?

[stahli]

Die Parameter kannst Du eigentlich nach Deinem Bedarf definieren (wie bei jeder anderen Funktion). Du musst halt überlegen, welche Parameter Du für Deine Zwecke benötigst.
Oder was meinst Du sonst genau?

[FriendOfDelphi]

Ich wollte noch wissen, was die Aufrufparameter "Aowner:TComponent, AParent:TWinControl und AOwner" machen, bzw. was dahinter steckt.