propety write geht nicht ??!!

[Snoop007]

hi,
ich schreibe gerade eine komponente
wenn ein neuer string hinzugefügt wurde, muss ich die komponente neu zeichnen lassen
meine property hat folgende strucktur

Delphi-Quellcode:

    procedure schreiben(value : TStringlist);
    procedure buttonszeigen;
    function lesen :TStringlist ;
  public
    constructor create(AOwner : TComponent); override;
  published
    property Items : TStringlist read lesen write schreiben;
  end;

aber die procedure schreiben wird nicht aufgerufen, lesen geht

wieso frage ich mich bloss ??!!

[APP]

Hallo,
poste mal Deine Procedure 'schreiben', um zu sehen was Du machst.

p.s. Nach dem (in)-offiziellen Styleguide sollte die write Prozedur mit SetDeineProcedure und read Funktion mit GetDeineFunction benamst sein...

[jbg]

schreiben wird nur aufgerufen, wenn du Items eine Stringliste zuweist. Für das Abfangen von Änderungen musst du bei der Stringliste das OnChange Ereignis abfangen.

[Snoop007]

die procedure schreiben wird auch gar nicht ausgeführt, er spring da nicht rein

wie kann ich denn das OnChange ereignis von FItems in die Komponente hinzufügen ?

Delphi-Quellcode:

procedure TOvaleLeiste.schreiben(value : TStringlist);
begin
  FItems := value;
  refresh;
end;

[Snoop007]

habs hinbekommen das ereignis zu schreiben

bei der erstellung eine procedure von OnChange zuweisen

Delphi-Quellcode:

  FItems.OnChange := aendern;

und die prodedure defenieren und anweisungen reinpacken

Delphi-Quellcode:

procedure TOvaleLeiste.aendern(Sender : TObject);
begin
  refresh;
end;

[jbg]

Zitat:

Zitat von Snoop007

Delphi-Quellcode:

procedure TOvaleLeiste.schreiben(value : TStringlist);
begin
  FItems := value;
  refresh;
end;

´
Damit produzierst du nur Speicherlecks. Bei einem Objekt sollte (außer man weiß genau was man macht) das schreiben so ablaufen:

Delphi-Quellcode:

procedure TOvaleLeiste.schreiben(value : TStringlist);
begin
  FItems.Assign(value);
  refresh;
end;