Objekte in TStringGrid darstellen?

[Hansa]

Was man nicht alles entdeckt. Da hat doch irgendwann tatsächlich mal einer diese Geschichte mit den Objects entdeckt. Es ist nicht zu fassen. Das ist ein mächtiges Werkzeug, mit dem sich viel machen lässt.

Delphi-Quellcode:

  TEditObject = class(TObject)
    MouseSelect  : boolean;   // SelectCell möglich ?
    Color        : TColor; // Kommentar wohl überflüssig
...
  end;

Da das echt wichtig und vor allem brauchbar ist, schreibe ich mal Antwort auf alten Thread. Soll eine Zelle als Checkbox dargestellt werden, dann hindert niemand einen daran, in dem Object noch ein Feld z.B.: IsCheckBoxCell : boolean; unterbringen. Da es sich hierbei allerdings um eine visuelle Geschichte handelt, kommt man um das OnDrawCell wohl kaum rum.

Ich lese bspw. ein DB-Feld und falls es ein boolean ist, dann wird das TObject für CheckBox true gesetzt und eine Checkbox mit OnDrawCell gezeichnet. Ansonsten eben nicht. Bevor jetzt einer denkt, das ginge alles automatisch : Compiler-Magic ist in dem Bereich sehr begrenzt. Da ist Handarbeit gefragt, sonst kracht es.