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
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.