Delphi-Code nach CPP uebersezten.

[MarkusB]

Moin, moin!

Ich möchte allmählich in OOP, in Delphi und CPP reinschnuppern. Deswegen versuche ich das Programm „ColorButton“ ( Source ) von Delphi nach CPP zu übersetzen. Von dem Delphi-Code habe ich ziemlich viel verstanden und nach CPP übersetzen können. Allerdings habe ich ein paar Schwierigkeiten die ich alleine nicht überwältigen kann.

Zum Beispiel der folgende Delphi-Code:

Delphi-Quellcode:

procedure TColorButton.CMEnabledChanged(var Message: TMessage);
begin 
  inherited; 
  Invalidate;
end;

habe ich nach CPP so übersetzt:

Code:

void __fastcall TMyColorButton::CMEnabledChanged(TMessage &Message)
{
   TButton::CMEnabledChanged(Message);
   Invalidate();
}

Leider akzeptiert der Compiler meine Übersetzung nicht und haut mir mit folgender Meldung auf die Finger:

Zitat:

[BCC32 Error] MyColorButton.cpp(100): E2247 `__fastcall TWinControl::CMEnabledChanged(TMessage &)’ is not accessible.`

Die Meldung verstehe ich so (um das ein bisschen naiv auszudrucken), dass die Funktion CMEnabledChanged in der Basisklasse (TButton) nicht ansprechbar ist. Das geschieht auch zu recht. Die Funktion „CMEnabledChanged“ ist in mehreren „Include-Dateien“ als privat deklariert. Ich habe zwei davon unter die Lupe genommen. In Pascal-Umgebung habe ich die Unit „Buttons.pas“ (source\win32\vlc) und in CPP-Umgebung die „Buttons.hpp“ (include\vcl) angeschaut. Sie beide sind sowohl in Pascal als auch in CPP als privat:

Pascal:

Code:

procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;

CPP:

Code:

HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);

Und nun, wenn die privaten Methoden nur für eigene Klassen vorbehalten sind, warum lässt sich der Pascal-Code einer abgeleiteten Klasse dann um Himmelswillen fehlerfrei kompielieren und CPP-Code nicht? Anscheinend, wird die private Methode einer Klasse in Pascal anders betrachtet als in CPP??!! Das wundert mich sehr! Oder ist das nicht so? Vielleicht findet sich ein CPP-Kenner unter den Pascal-Profis und gibt mir die Antwort.

Also, wer kennt die Antwort?

Crosspost:
EntwicklerForum
DSDT

Viele Grüße
Markus

[Muetze1]

Das inherited bei den Nachrichtenhandlern brauchst du im C++ Builder nicht aufrufen. Die MESSAGE_MAP Deklaration (die du ja noch definieren musst, damit die Methode überhaupt auf CM_ENABLEDCHANGED aufgerufen wird) stellt diese Vererbung und deren Aufrufe automatisch dar. Lass somit das inherited einfach weg.

Aber ich möchte auch gleich nochmal darauf hinweisen, dass ich in dem Zusammenhang auch ein Fehlverhalten festgestellt habe: CG QC 46495

[MarkusB]

Moin, moin!


Methode CMEnabledChanged(TMessage &Message) reagiert auf die Änderung der Enabled-Eigenschaftwert. Warum ich die Methode in der Basisklasse nicht direkt aufrufen kann, ist klar, sie ist nämlich als privat deklariert. Ich muss sie aber aufrufen um die Darstellung meines neuen Buttons zu ändern.

A. Lösung in CPP:
Meine Lösung sieht folgendermaßen aus:

Code:

void __fastcall TMyColorButton::CMEnabledChanged(TMessage &Message)
{
            TButton::Dispatch(&Message);
            Invalidate();
}

Also anstatt die Methode in der Basisklasse direkt aufzurufen, lasse ich die Message von der Basisklasse abarbeiten, indem ich sie an die Basisklasse weiterleite. Das funktioniert gut, aber …

Und nun kommt das Beste! Wenn das tatsächlich so ist, das die von mir definierte Messageabarbeitungmethode CMEnabledChanged lediglich die Nachricht an die Basisklasse weiterleitet und nichts weiter tut, dann muss ich sie überhaupt nicht definieren und aufrufen! Wozu den ganzen Quark wenn die gleiche Methode mir durch die Vererbung zu Verfugung gestellt worden ist? Also weg mit dem Umweg! Ich habe alles was mit der CMEnabledChanged-Methode irgendwas zutun hatte (inklusive MESSAGE_MAP) aus meiner Klasse weggelöscht und siehe da! Funktioniert genau so gut oder vielleicht noch besser!

B. Die Frage an Pascal-Profis:
Wird die private Methode einer Klasse in Pascal anders betrachtet als in CPP? Oder funktioniert „inherited“ im Zusammenhang mit der Abarbeitung der Systemnachrichten vielleicht anders und erlaubt den direkten Zugriff auf private Methoden der Basisklasse?

Viele Grüße
Markus

[jottkaerr]

Zitat von MarkusB:

B. Die Frage an Pascal-Profis:
Wird die private Methode einer Klasse in Pascal anders betrachtet als in CPP?

Nein (abgesehen von der unterschiedlichen Umsetzung des "friend"-Konzepts).

Zitat von MarkusB:

Oder funktioniert „inherited“ im Zusammenhang mit der Abarbeitung der Systemnachrichten vielleicht anders und erlaubt den direkten Zugriff auf private Methoden der Basisklasse?

Ja und nein. In Message-Handlern bedeutet ein einfaches "inherited;" (ohne Angabe einer Methode), dass die Methode aufgerufen wird, die in der unmittelbaren Vorgängerklasse als Handler für die gleiche Message eingetragen ist. Anders als bei einfachem "inherited;" in normalen Methoden muss die Vorgängermethode noch nicht mal den gleichen Namen haben. Die Zugriffsrechte werden dabei ignoriert, eben weil die Auflösung nicht über den Namen sondern über eine interne Tabelle erfolgt. Ein "inherited Method(...);" dagegen ruft die explizit genannte Methode der Vorgängerklasse auf und berücksichtigt auch die Sichtbarkeit.

jkr