Discussion :

[larsal007]

Bonjour à tous,
Je souhaite créer une classe qui hérite de TStringGrid, avec initialisation de certaines propriétés pour ne pas avoir à le faire à la création d'une instance. Mais cela ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
type
  TMzGrid = class(TStringGrid)
  private
    FLinkedTable : String;    //Table liée
    constructor Create(AOwner: TComponent);
  end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
constructor TMzGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Align            := alClient;
  ColCount     := 1;
  FixedCols     := 1;
  Options        :=  [goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goColSizing,goRowSelect,goSmoothScroll];
  RowCount      := 1;

Dans la fenêtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
constructor TfMain.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
 
  //Créer la grille de travail
  grMain := TMzGrid.Create(tsGrid);
  grMain.Parent := tsGrid;
end;

TfMain est un Tframe et le parent de la grille est un TabSheet. La grille est bien créée et visible mais les valeurs des propriétés ne sont pas bonnes. La grille n'est pas étendue sur tout le parent et le nombre de ligne et de colonnes n'est pas bon, ils sont au nombre de 4x4.

Je dois avoir certainement avoir loupé quelque chose.

Merci de votre aide.
Salim.

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
type
  TMzGrid = class(TStringGrid)
  private
    FLinkedTable : String;    //Table liée
  public
    constructor Create(AOwner: TComponent); override;
  end;

sinon tu appelles le constructeur public de l'ancêtre, qui ne réalise pas les initialisations.

[larsal007]

Merci beaucoup Tourlorou.
Ce n'est pas pour me défendre , mais à 3h00 du matin, je ne voyais plus grand chose. Ceci explique cela.
Merci encore une fois pour ton aide.