Hallo Delphianer
Ich würde gerne in der Unit Vcl.DBGrids - TCustomDBGrid
das property
property Columns: TDBGridColumns read FColumns write SetColumns; [Default(True)] überschreiben.

Hat jemand eine Idee wie das geht.

Überschreiben (Overload) nein.

[delphi][Default(True)] gehört zum property DefaultDrawing[delphi]


Was willst du ändern?
Den Setter:

• TDBGridColumns.Assign
• property Columns write MySetColumns;
• property Columns: TDBGridColumns read FColumns write MySetColumns;
• ...

Danke himitsu
Das geht eben nicht.
Ich spiele da nur ein wenig herum
ich wollte da noch ein Item Checkbox unterbringen.

mit
property Columns;

kein Problem

mit
property Columns: TDBGridColumns read FColumns write SetColumns; [Default(True)]

scheint alles richtig zu sein

zusammenfalten · markieren

Delphi-Quellcode:

if not Assigned(DBG) then
DBG := TMyDBGrid.Create(self);
DBG.Parent := Self;
DBG.Left := 350;
DBG.Top := 50;
DBG.Width := 500;
DBG.DataSource := DataSource1;


DBG.Columns.Add;
DBG.Columns.Add;

DBG.Columns.Items[0].FieldName := 'COUNTER';

DBG.Columns.Items[0].DisplayName := 'Boom';

DBG.Columns.Items[1].FieldName := 'Header';

DBG.Columns.Items[1].DisplayName := 'Zuum';

bei
DBG.Columns.Items[0].DisplayName := 'Boom';

bleibt DisplayName "COUNTER"
und im Grid werden weiter alle Datenfelder weiter angezeigt.

Ich habe beides mal debuged aber ich sehe da aber keinen Unterschied.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyDBGrid = class(TDBGrid)
  protected
    function CreateColumns: TDBGridColumns; override;
  end;

  TMyDBGridColumns = class(TDBGridColumns)
  published
    property CheckBoxes: ...;
  end

  TMyColumn = class(TColumn)
  published
    property CheckBox: ...;
  end

function TMyDBGrid.CreateColumns: TDBGridColumns;
begin
  //Result := TMyDBGridColumns.Create(Self, TColumn);
  Result := TMyDBGridColumns.Create(Self, TMyColumn);
end;

So?

Danke himitsu probiere ich morgen aus.