hi
ich bin kein großer experte(eher anfänger) wenns um das erstellen einer klasse/komponente geht!
kann mir hier jemand helfen?

zusammenfalten · markieren

Delphi-Quellcode:

type
  TTextfield = class(Twincontrol)
  private
    { Private-Deklarationen } 
    fLines: TStringlist;
    
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create (AOwner: TComponent); override;
    
  published
    { Published-Deklarationen }
    property Lines read: fLines; write: fLines;
  end;

beim kompilieren erhalte ich folgende fehler:

• Eigenschaft Lines existiert nicht in Basisklasse
• , oder : erwartet aber ; gefunden
• das published feld write ist weder vom typ class noch interface

alle in der zeile property lines ...

vielen dank im vorraus

Hi,

Du hast bei der Property den Typ vergessen.
So muss es sein:

property Lines: TStringlist read fLines write fLines; Edit: Stimmt, die doppelpunkte hatte ich gar nicht bemerkt...

Und entferne mal die Doppelpunkte nach read und write...

Bist du sicher, daß beim write die Instanz von FLines ersetzt werden soll? Normalerweise wird der Schreibzugriff auf so eine Property über FLines.Assign geregelt.

Zitat von Uwe Raabe:

Und entferne mal die Doppelpunkte nach read und write...

Bist du sicher, daß beim write die Instanz von FLines ersetzt werden soll? Normalerweise wird der Schreibzugriff auf so eine Property über FLines.Assign geregelt.

Soll heißen das du dir eine Setter-Method erstellen sollst:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TTextfield = class(Twincontrol)
  private
    { Private-Deklarationen }
    fLines: TStringlist;
   
  protected
    procedure SetLines(Value: TStringList);
  public
    { Public-Deklarationen }
    constructor Create (AOwner: TComponent); override;
   
  published
    { Published-Deklarationen }
    property Lines:TStringList read fLines write SetLines;
  end;

...

procedure TTextfield.SetLines(Value: TStringList);
begin
  FLines.assign(Value);
end;

Man sollte TStringList an den richtigen Stellen durch TStrings ersetzen - das macht das Property kompatibel zu allen anderen Klassen, die von TStrings abgeleitet sind.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TTextfield = class(Twincontrol)
  private
    { Private-Deklarationen }
    fLines: TStrings;
   
  protected
    procedure SetLines(Value: TStrings);
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
   
  published
    { Published-Deklarationen }
    property Lines:TStrings read fLines write SetLines;
  end;

...

constructor TTextfield.Create(AOwner: TComponent);
begin
  inherited;
  fLines := TStringList.Create; // die einzigste Stelle, an der TStringList geschrieben wird
end;


procedure TTextfield.SetLines(Value: TStrings);
begin
  FLines.assign(Value);
end;

Super!
Wie gesagt bin ich ein Anfänger im erstellen von Komponenten, also wie mache ich, dass der Inhalt von lines angezeigt wird?(Also zur Laufzeit oder Erstellungszeit auf dem Form)

Weiß das keiner?
Ich hab momentan nur ein graues Rechteck!

Das soll aussehen wie z.B. ein Memo? Dann würde ich die Paint-Methode überschreiben und selber zeichnen.

das soll so sein wie trichedit mit

markieren

Delphi-Quellcode:

color := clbtnface;
borderstyle := bsnone;
Readonly := true;

edit:
create sieht so aus:

markieren

Delphi-Quellcode:

inherited Create (AOwner);
     flines := tstringlist.Create;
     Color := clbtnface;
     SetBounds (0,0,150,300);
     lines.Text := 'Textfield';

Dann überschreib doch mal Paint und gib dort den Text aus. Alternativ könntest Du doch auch etwas tiefer ansetzen und etwa von TMemo/TCustomMemo ableiten, das spart eine Menge Arbeit.