Einstellungen Speichern Entwurfszeit/Laufzeit

[Pro_RJ]

Einen wunderschönen guten Abend,

Ich möchte eine neue Klasse erstellen, wo eine DBGrid auf einem Pannel liegen soll.Mein Problem ist folgendes: Wie kann ich die Einstellungen die zur Entwurfszeit eingestellt werden speichern, so das diese bei der Laufzeit auch eingestellt sind.
bsp:

bei der "normalen" DBGrid ist es ja so, ich kann zur Entwurfszeit in Delphi ja die Einstellungen für Datasource und Columns einstellen --> diese werden mit in die Exe übernommen so das ich sie nicht noch mal belegen muss.

Jetzt hab ich mit eine Komponente geschrieben, wo die Grid auf einem Pannel erzeugt werden soll.
Was muss ich machen, das die Einstellung die ich unter Delphi eingestellt habe auch in der Anwendung eingestellt sind?
Könnt ihr mir da ein Paar Tipps geben, wie so was funktioniert?



Ich hab euch mal hier den QuellText der Klasse gepostet damit ihr seht was ich mache.
PS: in diese Klasse sollen später noch viele weiter Funktionen implementiert werden.

Delphi-Quellcode:

unit Grid_Neu_U;


interface
uses  Dialogs,Forms,Windows,IniFiles,SysUtils, Classes, Controls, ExtCtrls,IBQuery,IBDatabase,DBGrids,DB,Grids,Graphics,Types,StdCtrls,Buttons,IBCustomDataSet;


type
  Grid_Neu =Class(TPanel)
    U_Grid : TDBGrid;
  public
    constructor Create(AOwner: TComponent); override;
  published
    Property Grid : TDBGrid read U_Grid write U_Grid;
end;

implementation

{ Grid_Neu }

constructor Grid_Neu.Create(AOwner: TComponent);
begin
  inherited;
  U_Grid := TDBGrid.Create(Self);
  U_Grid.Parent := Self;
  U_Grid.Align := AlClient;
end;

end.

Danke schonmal im vorraus.


Edit:
Ich hab hier mal ein kleines Beispiel zurecht gebastelt.

Die DBgrid1 Hat zur Entwurfszeit 3 Columns die auch zur Laufzeit angezeigt werden.

die Grid_Neu21 ist die neue komponente. wenn man hier zur Entwurfszeit 3 Columns einstellt sind sie zur laufzeit nicht mehr verfürgbar. Und genau das ist das Problem was ich meine

[blawen]

Zitat von Pro_RJ:

Jetzt hab ich mit eine Komponente geschrieben, wo die Grid auf einem Pannel erzeugt werden soll.
Was muss ich machen, das die Einstellung die ich unter Delphi eingestellt habe auch in der Anwendung eingestellt sind?
Könnt ihr mir da ein Paar Tipps geben, wie so was funktioniert?

Irgendwie sehe ich Dein Problem nicht.

Wenn Du die Komponente manuell erstellst, musst Du die Eigenschaften auch manuell zuweisen:

Delphi-Quellcode:

dbgrid1.DataSource := DataSource1;
dbgrid1.Visible := False;

[Pro_RJ]

es geht darum, das ich die einstellungen für
dbgrid1.DataSource := DataSource1; usw im Objektinspektor in delphi einstelle und diese zur Laufzeit nicht mehr eingetragen sind.


Wenn ich aus der ToolPalette eine DBGrid auf dem Formular einbinde und dort den Datasource einstelle muss ich diese Einstellung auch nicht nochmal extra mit Dbgrid.Datasource := Datasource1 zuweisen. Da diese Einstellung ja schon im Objektinspektor eingestellt worden ist.

[blawen]

Wieso leitest Du nicht einfach von einer DBGrid ab?

Ansonsten musst Du die Propertys einfach programmieren. Am besten schaust Du Dir den Quelltext der dbGrid an (dbGrid.pas)

[Pro_RJ]

Ich hab hier mal ein kleines Beispiel zurecht gebastelt.

Die DBgrid1 Hat zur Entwurfszeit 3 Columns die auch zur Laufzeit angezeigt werden.

die Grid_Neu21 ist die neue komponente. wenn man hier zur Entwurfszeit 3 Columns einstellt sind sie zur laufzeit nicht mehr verfürgbar. Und genau das ist das Problem was ich meine

[blawen]

Beim laden Deines Beispiels erhalte ich immer die angehängte Fehlermeldung.

Wie ich ansonsten gesehen habe, createst Du nur - alles andere fehlt!
Ich empfehle Dir daher nochmals, die dbGrid.pas (-> x:\Programme\xxx\xxx\source\win32\dbgrid.pas) anzuschauen und allenfalls von dieser abzuleiten.

[Pro_RJ]

Das ist auch nur in kleines Beispiel.
Ich vererbe ja die DBGrid d.h. Ich nehme die gesamte Klasse.

Die Fehlermeldung sagt mir leider nichts.
an sonsten kannst du ja nur die Units einbinden und eine eigene Komponente machen.

Ein bisschen weiter bin ich schon gekommen.
Wenn man in einem "Normalen" Formular etwas einstellt werden diese Einstellung in der "*.Dfm"-Datei gespeichert.Und genau sowas möchte ich auch machen.
nur das einbinden der Compiler-Derektive hat leider nicht funktioniert (oder ich abs falsch gemacht)

[nachti1505]

Zitat:

Ich vererbe ja die DBGrid d.h. Ich nehme die gesamte Klasse.

Was du machst, ist aber kein vererben. Vererben wäre eine Komponente á la
TMyGrid = class (TDBGrid) Du hingegen, vererbst ein Panel, auf welchem sich ein DBGrid befindet. Zu deinem eigentlichen Problem:

Ansatz 1:
- für das interne DBGrid sollte SetSubComponent(true) aufgerrufen werden, dann müsste es auch mit dem OI klappen

Ansatz 2: (der in meinen Augen bessere)
- ich würde die relevanten Properties und nicht das komplette DBGrid als Property auslagern

Delphi-Quellcode:

type 
  Grid_Neu =Class(TPanel) 
  private
    FGrid : TDBGrid; 
    procedure SetDatasource(const AValue: TDatasource);
    function GetDatasource: TDatasoure;
  public 
    constructor Create(AOwner: TComponent); override; 
  published 
    Property DataSource: TDataSource read GetDatasource write SetDatasource;
end; 


implementation

procedure TGrid_Neu.SetDataSource(const AValue: TDatasource);
begin
  FGrid.Datasource := AValue;
end;

function TGrid_Neu.GetDatasource: TDatasource;
begin
  result := FGrid.DataSource;
end;