StringGrid: Auf Ändern der Spalten-/Zeilenanzahl reagieren

[Fussball-Robby]

Hey,
ich habe eine eigene Komponente, die vom TStringGrid abgeleitet ist. Für den weiteren Gebrauch ist es wichtig, dass das Grid gleichviele Spalten und Zeilen hat. Bisher habe ich bei der entsprechenden Methode auf Gleichheit geprüft, und, wenn es nicht gleichviele waren, eine Exception geworfen. Ich fände es allerdings eleganter, beim Ändern von RowCount bzw. ColCount das entsprechend andere gleich mitzuändern. Dazu müsste ich mitbekommen, wenn eine dieser Eigenschaften geändert wird. Gibt es da irgendeine Message, auf die ich reagieren könnte o.Ä.?

[toms]

Hallo

Warum schreibst du nicht deine eigene Prozedur wo beides geändert wird?

[Fussball-Robby]

Zitat von toms:

Warum schreibst du nicht deine eigene Prozedur wo beides geändert wird?

Wann soll ich diese denn dann aufrufen? Man soll ganz normal im OI z.B. RowCount ändern können, woraufhin sich dann ColCount auch ändert.

[toms]

Zitat von Fussball-Robby:

Zitat von toms:

Warum schreibst du nicht deine eigene Prozedur wo beides geändert wird?

Wann soll ich diese denn dann aufrufen? Man soll ganz normal im OI z.B. RowCount ändern können, woraufhin sich dann ColCount auch ändert.

Ach so, du meinst im OI. Dann kommst du wohl nicht darum herum eine eigene Komponente von TStringGrid abzuleiten.

[Hansa]

Zitat von toms:

Dann kommst du wohl nicht darum herum eine eigene Komponente von TStringGrid abzuleiten.

Und weil er genau das gemacht hat, hat er die Frage gestellt. Siehe #1 Ich hofe Du hast die VCL-Quellen. Irgendwo muss im Constructor das hier gemacht werden :

Delphi-Quellcode:

inherited;
FColCount := FRowCount;

SetColCount gibts auch. Oh je, muss das gerade ein TStringgrid sein ? Wo ist die beste Stelle das unterzubringen ? Ist CreateParams geeignet ? Die Grids.pas hat fast 6000 Zeilen. Da scrollt man sich ja die Flossen wund.

[sx2008]

Zitat von Fussball-Robby:

ich habe eine eigene Komponente, die vom TStringGrid abgeleitet ist.

Du solltest von TCustomStringGrid ableiten.
Damit kannst du verhindern, dass RowCount und ColCount im OI überhaupt sichtbar werden.
Stattdessen gibst du ein eigenes Property (RowColCount oder GridSize) heraus.

[DeddyH]

Zitat von Hansa:

Ich hofe Du hast die VCL-Quellen.

Bei D7 Enterprise sind die dabei

[Hansa]

Ob das immer stimmt ? Habs aber doch noch gesehen wo das gemacht werden kann :

Delphi-Quellcode:

  TStringGrid = class(TDrawGrid)
  private
...
  public
    constructor Create(AOwner: TComponent); override;

Also gilt das vorher gesagte und das ist ja dann kein Problem.

[Hansa]

Zitat von sx2008:

..Du solltest von TCustomStringGrid ableiten.
Damit kannst du verhindern, dass RowCount und ColCount im OI überhaupt sichtbar werden.
Stattdessen gibst du ein eigenes Property (RowColCount oder GridSize) heraus.

Dann kann er aber gleich das komplette Rad neu erfinden. Guck dir mal an, wieviele Properties dann selbst bearbeitet werden müssten. Der wird ja nicht mehr froh.

[sx2008]

Zitat von Hansa:

Zitat von sx2008:

..Du solltest von TCustomStringGrid ableiten.
Damit kannst du verhindern, dass RowCount und ColCount im OI überhaupt sichtbar werden.
Stattdessen gibst du ein eigenes Property (RowColCount oder GridSize) heraus.

Dann kann er aber gleich das komplette Rad neu erfinden. Guck dir mal an, wieviele Properties dann selbst bearbeitet werden müssten.

Hast leider recht - es gibt kein TCustomStringGrid, sondern nur ein TCustomDrawGrid.
Würde es aber ein TCustomStringGrid geben, dann wäre das die richtige Lösung, denn er bräuchte dann die Properties nur veröffentlichen.
Und das Veröffentlichen von Properties ist ganz einfach:

Delphi-Quellcode:

  TDrawGrid = class(TCustomDrawGrid)
  published
    property Align;  // erhöhe die Sichtbarkeit von protected auf published
    property Anchors;// dito