DGL • Thema anzeigen - Vererbte Klassen und Objekte

Vererbte Klassen und Objekte

Moderator: DGL-Team

Seite 1 von 1

[ 8 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Shaddow

Betreff des Beitrags: Vererbte Klassen und Objekte

Verfasst: Mi Jun 06, 2007 12:39

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Hi, ich sitz hier grad vor einer im Grunde sicher schnell geloesten Sache, doch scheinbar bin ich mal wieder betriebsblind...

Von der Klasse TSE_GUI_Custom leitet sich die Klasse TSE_GUI_Rectangle_Custom ab. Von dieser wiederrum leitet sich TSE_GUI_Window_Custom ab.

Code:

TSE_GUI_Window_Custom = class (TSE_GUI_Button_Custom)
  public
    fItems                    : THashedStringList;
 
    constructor Create        (NLeft, NTop, NWidth, NHeight: Integer);
 
    function    AddGUIItem    (NText: String; NObject: TSE_GUI_Custom) : Integer;
    procedure   Draw;
 
    destructor  Destroy;
  end;
 
constructor TSE_GUI_Window_Custom.Create (NLeft, NTop, NWidth, NHeight: Integer);
begin
  inherited Create(NLeft, NTop, NWidth, NHeight);
  fItems := THashedStringList.Create;
end;
 
function TSE_GUI_Window_Custom.AddGUIItem (NText: String; NObject: TSE_GUI_Custom): Integer;
begin
  fItems.AddObject(NText,NObject);
end;
 
procedure TSE_GUI_Window_Custom.Draw;
var FontPos : Array[0..1] of Byte;
    i:Integer;
begin
 
  for i := 0 to fItems.Count - 1 do
    (fItems.Objects[i] as TSE_GUI_Custom).Draw;
    
end;
 

NUn erschaffe ich mir ein Fenster (Test ist dabei ein Object vom Typ TSE_GUI_Button_custom):

Code:

    mywindow: TSE_GUI_Window_custom;
  mywindow := TSE_GUI_Window_Custom.Create(200,200,200,200);
  mywindow.AddGUIItem('laaa',test);
 

Und dann wird gezeichnet:

Code:

mywindow.draw;

Im Grunde muesste jetzt bei Draw die Forschleife aufgerufen werden, und die Drawprozedur aller beeinhalteten Objekte aufgerufen werden. Das Problem ist, dass TSE_GUI_Custom.Draw statt TSE_GUI_BUtton_Custom, was ja der Typ von Test ist. Bei meinem Szenenmanager funktioniert das im Grunde genauso, nur irgendwo muss ich ja was uebersehen haben, sonst würd es ja auch hier gehen

Nach oben

littleDave

Betreff des Beitrags:

Verfasst: Mi Jun 06, 2007 13:20

DGL Member

Registriert: Mi Mär 09, 2005 15:54
Beiträge: 372
Wohnort: München
Programmiersprache: Delphi, C#, FPC

Also auf den ersten Blick würd ich sagen:

du hast die deklarationen virtual und override bei Draw vergessen.

Sonst fällt mir auf die schnelle nichts auf

_________________
Aktuelles Projekt: Gael - Development Blog
Website: LightBlackSoft.com

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Mi Jun 06, 2007 13:24

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

override ist es ^^ danke.
Ich hatte alle Draw Prozeduren Virtual gesetzt, aber scheinbar kann ich eine Prozedur nciht gleichzeitig Virtual und Override geben. So wär es mir am liebsten gewesen, nun musste ich bei allen Prozeduren alle virtuals wegmachen und durch overrides ersetzten.-..

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Mi Jun 06, 2007 13:27

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Du solltest dir evtl auch mal dieses OOP Tutorial anschauen. Besser wird es dir keiner erklären können.

Nach oben

littleDave

Betreff des Beitrags:

Verfasst: Mi Jun 06, 2007 13:28

DGL Member

Registriert: Mi Mär 09, 2005 15:54
Beiträge: 372
Wohnort: München
Programmiersprache: Delphi, C#, FPC

Eine als virtual deklarierte Funktion ist sozusagen das Fundament. Alle weiteren Ebenen müssen die gleiche Breite (gleichen Parameter) wie die Originalfunktion haben. Natürlich kannst du beliebig viele Ebenen auf ein Fundament setzen, aber ein weiteres Fundament als Ebene aufsetzen ist eher sinnlos.

*klugsche**modus OFF*

Grüße

_________________
Aktuelles Projekt: Gael - Development Blog
Website: LightBlackSoft.com

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Mi Jun 06, 2007 13:31

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Also bei mir ist die Struktur so:

TSE_GUI -> TSE_GUI_Rectangle -> TSE_GUI_Window
Virtual------> Virtual, Override ------> Virtual, Override

So müsste es im Grunde aussehen, denn am Ende wird von TSE_GUI_Window eine letzte Klasse abgeleitet, um alle Events abzufangen. Das mit Virtual und Override gleichzeitig funktioniert nur leider nicht.

Nach oben

littleDave

Betreff des Beitrags:

Verfasst: Mi Jun 06, 2007 13:32

DGL Member

Registriert: Mi Mär 09, 2005 15:54
Beiträge: 372
Wohnort: München
Programmiersprache: Delphi, C#, FPC

So wäre es richtig:

TSE_GUI -> TSE_GUI_Rectangle -> TSE_GUI_Window
Virtual------> Override --------------> Override

wenn du dann in TSE_GUI_Window.Draw inherited aufrufst, werden alle überschriebenen Funktionen ausgeführt

Bsp:

Code:

 
procedure TTest.Draw; virtual;
begin
  writeln('Test1');
end;
 
// TABC = class(TTest)
 
procedure TABC.Draw; override;
begin
  inherited;
  writeln('Test2');
end;
 

ohne inherited würde bei TABC.Draw folgendes ausgegeben:

Test2

mit inherited hingegen

Test1
Test2

_________________
Aktuelles Projekt: Gael - Development Blog
Website: LightBlackSoft.com

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Mi Jun 06, 2007 13:47

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Okay dann habe ich das mit dem Virtual nur falsch verstanden, es muss also nicht immer drin sein, danke

Nach oben

Seite 1 von 1

[ 8 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 18 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.