Hallo zusammen,

ich habe schon lange eine um viele Funktionen erweiterte von TAdvStringGrid abgeleitete Komponente.

Nun habe ich eine TStringList-Property hinzugefügt, mit der man zur Entwurfszeit bereits Daten in das Grid füllen können soll.

Das funktioniert auch eigentlich, aber wenn ich das Projekt neu öffne werden die Daten, die korrekt in der dfm-Datei gespeichert werden, nicht wieder in das Grid übertragen.

Hier die nötige Codeabschnitte:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyAdvStringGrid = class(TAdvStringGrid)
  private
    FDefaultData: TStringList;
    procedure SetDefaultData(const Value: TStringList);
  published
    property DefaultData: TStringList read FDefaultData write SetDefaultData;
  end;

procedure TMyAdvStringGrid.SetDefaultData(const Value: TStringList);
begin
  FDefaultData.Assign(Value);

  if FDefaultData.Text <> '' then
    StringToGrid(FDefaultData.Text); // füllt die Daten in das Grid
end;

(Natürlich wird FDefaultData auch im Constructor erzeugt und später wieder freigegeben)

Die Daten werden beim Öffnen des Projekts zwar korrekt von der dfm-Datei in FDefaultData eingelesen, es wird dabei aber offenbar nicht der entsprechende Setter (SetDefaultData) benutzt...

Kann mir hier jemand weiterhelfen?

Vielen Dank im Voraus!

Probierst mal so?

zusammenfalten · markieren

Delphi-Quellcode:

  protected
    procedure Loaded; override;

..

procedure TMyAdvStringGrid.SetDefaultData(const Value: TStringList);
begin
  FDefaultData.Assign(Value);
  Loaded;
end;

procedure TMyAdvStringGrid.Loaded;
begin
  inherited;
  if FDefaultData.Text <> '' then StringToGrid(FDefaultData.Text);
end;

Zitat von freejay:

es wird dabei aber offenbar nicht der entsprechende Setter (SetDefaultData) benutzt

Offenbar? Was sagt denn der Debugger?

Ich habe ehrlich gesagt keine Ahnung, wie man eine installierte Komponente debugt...

Aber Björks Antwort hat mir bereits sehr geholfen: Vielen Dank!

Die Prozedur Loaded kannte ich echt noch nicht - und das nach fast zwanzig Jahren Delphientwicklung...

Allerdings werde ich Loaded nicht explizit so aufrufen: Durch das inherited würden da viel zu viel anderer Code mit ausgeführt.

Hallo,

Zitat:

Ich habe ehrlich gesagt keine Ahnung, wie man eine installierte Komponente debugt...

Indem Du die zur Laufzeit erzeugst.
Ob dann aber das Loaded klappt, müsstest Du ausprobieren.

Zitat von freejay:

Ich habe ehrlich gesagt keine Ahnung, wie man eine installierte Komponente debugt

Wie jeden anderen Code auch. Ob die Komponente nun installiert ist oder nicht, zur Laufzeit wird der entsprechende Code ja immer aufgerufen. Setzt einfach einen Breakpoint in den Setter und du siehst schon ob der aufgerufen wird oder nicht.

Mit dem Loaded bin ich deiner Meinung: Das sollte auf keinen Fall im Setter aufgerufen werden.

Zitat von Uwe Raabe:

Wie jeden anderen Code auch. Ob die Komponente nun installiert ist oder nicht, zur Laufzeit wird der entsprechende Code ja immer aufgerufen. Setzt einfach einen Breakpoint in den Setter und du siehst schon ob der aufgerufen wird oder nicht.

Äh, das glaube ich nicht: Der Komponentencode wird doch schon beim Laden des Projekts ausgeführt. Da kann ich Breakpoints setzen bis ich umfalle...

Zitat:

Ich habe ehrlich gesagt keine Ahnung, wie man eine installierte Komponente debugt...

Wie jedes andere Programm auch.
> Du startest ein zweites Delphi, welches du debuggst, inkl. deiner Komponente.


Tipp: Bei deiner BPL > Menü > Start > Parameter
* Host-Anwendung: C:\...\bin\bds.exe
* Parameter: -np -pDelphi

Zitat von freejay:

Der Komponentencode wird doch schon beim Laden des Projekts ausgeführt. Da kann ich Breakpoints setzen bis ich umfalle...

Das gilt für die Design-Time, aber zur Laufzeit wird der Code eben auch ausgeführt. Du musst das Programm halt einmal im Debugger starten.

Zitat von himitsu:

Zitat:

Ich habe ehrlich gesagt keine Ahnung, wie man eine installierte Komponente debugt...

Wie jedes andere Programm auch.
> Du startest ein zweites Delphi, welches du debuggst, inkl. deiner Komponente.


Tipp: Bei deiner BPL > Menü > Start > Parameter
* Host-Anwendung: C:\...\bin\bds.exe
* Parameter: -np -pDelphi

Danke für den Tip: Werde ich mir beim nächsten derartigen Problem mal näher ansehen.