OOP: Klassen ableiten

[maximus Caesar]

Hallo!
Ich hab ne Frage zu OOP: Kann man eine Klasse von einem TRichEdit und eine andere von einem TImage ableiten?
Wenn ja: Wie?
PS: vom TRichEdit brauche ich die Lines Eigenschaft (da keine Begrenzung von Zeilen, brauche unterschiedlich viele) und vom TImage das Bild, so das ich darin auch andere einzeichnen kann (über Canvas.Draw).

[Steve]

Delphi-Quellcode:

TYPE
 TAbgeleiteteKlasse = CLASS(TVorgaengerKlasse)
  {...}
END;

Gruß
Stephan

[maximus Caesar]

Hab ich gemacht:

Delphi-Quellcode:

type
TRichEdit1 = class (TRichEdit)
...
end;

Dann bringts mir folgende Fehlermeldung:

Delphi-Quellcode:

[Error] Weg.pas(6): Undeclared identifier: 'TRichEdit'

(Beim TImage natürlich mit TImage statt TRichEdit)


Edit: Liegt aber net am Namen für die Klasse! Der Fehler kommt, egal wie die Klasse heißt, und es wird immer die Vorgänger Klasse als Fehler markiert

[Andis]

ComCtrls in uses vergessen?

Delphi-Quellcode:

uses Comctrls,...........;

[Pseudemys Nelsoni]

für TImage dementsprechend "ExtCtrls" noch in die uses klausel eintragen

[maximus Caesar]

Ups... :oops:

Gibt noch ein Fehler:

Delphi-Quellcode:

type
TRichEdit1 = class (TRichEdit)
 FX1:String;                 // Hier ist der Fehler
 FX2:String;
 FY1:String;
 FY2:String;
public
 property X1 : String Read FX1 Write FX1;
 property X2 : String Read FX2 Write FX2;
 property Y1 : String Read FY1 Write FY1;
 property Y2 : String Read FY2 Write FY2;
 procedure Wegpunktefestlegen;
 procedure Paint;
end;

folgende Fehlermeldung:

Delphi-Quellcode:

[Error] Weg.pas(9): Published field 'FX1' not a class nor interface type

[Pseudemys Nelsoni]

schreib mal:

Delphi-Quellcode:

private

vor deinen strings

[Steve]

Deklariers mal nicht published, sondern Private o.ä. (also FX1 etc.)

Gruß
Stephan :dance:

[Pseudemys Nelsoni]

achja, noch ein tipp...

Delphi-Quellcode:

type 
TRichEdit1 = class (TRichEdit)
private 
  FX1: String;                 
  FX2: String; 
  FY1: String; 
  FY2: String; 
public 
  property X1: String Read FX1 Write FX1; 
  property X2: String Read FX2 Write FX2; 
  property Y1: String Read FY1 Write FY1; 
  property Y2: String Read FY2 Write FY2; 
  procedure Wegpunktefestlegen; 
  procedure Paint; 
end;

der übersicht wegen solltest du das ganze ein bisschen besser einreihen :zwinker:
das zeigt dir delphi schon an TForm1 wie das geht ;)

[Steve]

PS: Wenn X1 auf FX1 direkt zugreift (Read und Write), kannste X1 gleich direkt public machen, ohne property... weil der Sinn der Property (Geheimnisprinzip, Kontrolle...) nicht erfüllt ist ;) oder aber nict direkt drauf zugreifen, sondern über Methoden (wäre sauberer)

das aber nur so nebenbei :)

Gruß
Stphan :dance: