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:

[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?

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

[Pseudemys Nelsoni]

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

[maximus Caesar]

Ups...

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:

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

[Pseudemys Nelsoni]

schreib mal:

private vor deinen strings

[Steve]

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

Gruß
Stephan

[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
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