DGL • Thema anzeigen - Fragen Zu Delphi...

Fragen Zu Delphi...

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Finalspace

Betreff des Beitrags:

Verfasst: Fr Mär 21, 2003 09:50

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Tach ich hab mal einige fragen zu Delphi,
wie funzt das richtig mit dem vererben:

ich will folgendes haben,

ich habe in der Klasse TCGUI eine variable definiert die entweder TCGUIFormMaskTypeStatic oder
TCGUIFormMaskTypeResize als klasse wählen soll.

Wie kann ich delphi nun sagen, er soll mir da keinen Fehler im Compiler bringen

DD
Wenn mir einer das erklären kann, wie das funzt würde mich das sehr viel weiter bringen.

Am ende wär mir folgendes recht:

FMask := TCGUIFormMaskTypeStatic.Create
oder
FMask := TCGUIFormMaskTypeResize.Create

Ist das überhaupt möglich ??

Ich benutze Delphi 5 Standard, kann aber jederzeit auch auf delphi 7 wechseln.

folgender code:

Code:

 
  TCGUIFormMaskTypeStatic = class(Tobject)
    FormBitmap : TBitmap;
  end;
 
  TCGUIFormMaskTypeResize = class(Tobject)
    BorderBitmaps : array [0..9] of TBitmap;
  end;
 
  TCGUIForm = class(TObject)
  private
    FMask    : TCGUIFormMaskTypeStatic or TCGUIFormMaskTypeResize;
  end;
 
 

und noch ne frage, was sind z.b. Interfaces ???

code von DSPack.pas (DirectShow Unit)

Code:

 
 
  {@exclude}
  IFilter = interface
  ['{887F94DA-29E9-44C6-B48E-1FBF0FB59878}']
    { Return the IBaseFilter Interface (All DirectShow filters expose this interface). }
    function GetFilter: IBaseFilter;
    { Return the filter name (generally the component name). }
    function GetName: string;
    { Called by the @link(TFilterGraph) component, this method receive notifications
      on what the TFilterGraph is doing. if Operation = foGraphEvent then Param is the
      event code received by the FilterGraph.}
    procedure NotifyFilter(operation: TFilterOperation; Param: integer = 0);
  end;
 
  { Manage a Video Renderer or a Video Mixer Renderer (VMR) Filter to display
    a video in your application. }
  TVideoWindow = class(TCustomControl, IFilter, IEvent)
  private
    FMode          : TVideoMode;
    FVMROptions    : TVMROptions;
    FBaseFilter    : IBaseFilter;
    FVideoWindow   : IVideoWindow; // VMR Windowed & Normal
  ...
  end;
 
 

matane,
Finalspace

Nach oben

SchodMC

Betreff des Beitrags:

Verfasst: Fr Mär 21, 2003 11:02

DGL Member

Registriert: Fr Jul 12, 2002 07:15
Beiträge: 916
Wohnort: Dietzhölztal / Hessen
Programmiersprache: C/C++, Obj-C

@Vererbung: Du musst einen gemeinsammen Vater haben:

Code:

 
 &nbsp;TMainObject = class(TObject)
 &nbsp;public
 &nbsp; &nbsp;// Alle Funktionen/Properies/Variablen, welche die nachfahren gemeinsamm haben sollen
 &nbsp; &nbsp;// müssen hier eingetragen werden.
 &nbsp; &nbsp;MyBitmapNr: Integer;
 &nbsp; &nbsp;procedure Draw;
 &nbsp;end;
 
 &nbsp;TObj1 = class(TMainObject)
 &nbsp;public
 &nbsp; &nbsp; DummyObj1: Integer;
 &nbsp;end;
 
 &nbsp;TObj2 = class(TMainObject)
 &nbsp;public
 &nbsp; &nbsp;DummyObj2: Integer;
 &nbsp;end;
 
var
 &nbsp;FObj : TMainObject;
begin
 &nbsp;FObj := TObj1.Create;
 &nbsp; &nbsp;oder
 &nbsp;FObj := TObj2.Create;
 
 &nbsp;if FObj is TObj1 then
 &nbsp; &nbsp;(FObj as TObj1).DummyObj1 := 12
 &nbsp;else
 &nbsp; &nbsp;(FObj as TObj2).DummyObj2 := 12;
end;
 

Du musst in diesem Beispiel FObj als Grund-Objekt definieren. Dannach kannst Du FObj einen Beliebigen Nachfahren von TMainObject zuweisen, allerdings nur auf eben die Prozeduren usw. von TMainObject zugreifen. Möchtest Du auf einen WErt eines nachfahren zugreifen, musst Du diesen durch (FObj as Objekt-Typ) in das entsprechende Objekt "konvertieren" und kannst somit auf dessen Daten zugreifen. Mit Hilfe von IS kannst du überprüfen, ob (in diesem Fall) FObj in Wirklichkeit TObj1 oder TObj2 ist. Näheres dazu in der Delphi-Hilfe.

@Interface: Interfaces sind COM-Objekte von Windows. Über die Weltweit eindeutige GUID (die Komische Nummer mit den Zahlen) kann auf das entsprechende COM-Objekt zugegriffen werden. Auch hierzu siehe Delphi-Hilfe.

Im allgemeinen empfiehlt sich immer mal in's Delphi Handbuch hineinzuschauen, den da ist eigentlich alles beschreiben.

_________________
Und was würdest Du tun, wenn Du wüsstest, dass morgen Dein letzter Tag auf dieser Erde ist?

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Fr Mär 21, 2003 13:37

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Arigatou,

jetzt bin ich endlich wieder etwas schlauer

Ich hatte in der Delphi Hilfe nichts wirklich gescheites drüber gefunden.
Naja, ist auch schwierig mir raucht grad ziemlich der Kopf... ich programmiere gerade eine richtige Dynamische SkinEngine für Appz bzw Xenorate...
Funzt bis jetzt ganz gut...

Mal schauen, vielleicht kann man später das ding dann einfach auf OpenGL ummodden

matane,
Finalspace

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Fr Mär 21, 2003 15:10

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Kleine frage noch, was macht denn das inherited ???
ich peil das nicht und in der delphi 5 doku steht da nicht viel drin

z.b. folgender code:

Code:

 
procedure TfrmMain.WMKeyDown(var Message: TWMKeyDown);
var
 &nbsp;Shift : TShiftState;
begin
 &nbsp;inherited;
 &nbsp;Shift := [];
 &nbsp;if CtrlDown then Shift := [ssCtrl];
 &nbsp;if AltDown then Shift := [ssAlt];
 &nbsp;if ShiftDown then Shift := [ssShift];
 &nbsp;Sys.SetGlobalShortCut(Message.CharCode, Shift);
end;
 

was würde passieren wenn das inherited nicht drin wäre ???

Danke schonmal

matane,
Finalspace

Nach oben

Sascha Willems

Betreff des Beitrags:

Verfasst: Fr Mär 21, 2003 15:22

DGL Member

Registriert: Mo Sep 23, 2002 19:27
Beiträge: 5812
Programmiersprache: C++

inherited ruft die in der Basisklasse deklarierte Funktion/Prozedur mit selbigem Namen auf.

Wenn du also z.B. ein Objekt ableitest, und dessen Konstruktor noch was hinzufügen willst, dann rufst du in deinem neuen Konstruktor mittels inherited erst den Konstruktor der Grundklasse auf bevor du dann noch was anhängst.

P.S. : Hier die Deklaration aus der D7-Hilfe :

Zitat:

Das reservierte Wort inherited ist für die Polymorphie von großer Bedeutung. Es kann in Methodenimplementierungen (mit oder ohne nachfolgendem Bezeichner) angegeben werden.

Folgt auf inherited der Name eines Elements, entspricht dies einem normalen Methodenaufruf bzw. einer Referenz auf eine Eigenschaft oder ein Feld. Der einzige Unterschied besteht darin, dass die Suche nach dem referenzierten Element bei dem direkten Vorfahren der Klasse beginnt, zu der die Methode gehört. Wenn Sie beispielsweise

inherited Create(...);

in der Definition einer Methode angeben, wird die geerbte Methode Create aufgerufen.

Die Anweisung inherited ohne Bezeichner verweist auf die geerbte Methode mit demselben Namen wie die aufrufende Methode. Handelt es sich bei der aufrufenden Methode um eine Botschaftsbehandlung, verweist diese auf die geerbte Botschaftsbehandlung für dieselbe Botschaft. In diesem Fall übernimmt inherited keine expliziten Parameter, sondern der geerbten Methode werden einfach die Parameter der aufrufenden Methode übergeben. So wird beispielsweise:

inherited;

häufig in der Implementierung von Konstruktoren verwendet. Der geerbte Konstruktor wird also mit den Parametern aufgerufen, die an die abgeleitete Klasse übergeben wurden.

_________________
www.SaschaWillems.de | GitHub | Twitter | GPU Datenbanken (Vulkan, GL, GLES)

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 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.