Aufgerufene Methode erkennt aufrufendes Objekt nicht.

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

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