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