Moin Leude!
Ich habe nun die Lösung gefunden. Für alle die es interessiert:
Wenn man ein Shape auf dem DrawGrid zeichnen möchte, dann muss man im OnCreate die Zeile
Delphi-Quelltext
1:
| Shape_Selection.Parent := DrawGrid1 |
eintragen, da zur Designzeit ein Drawgrid keine Komponenten akzeptiert und diese durch das Canvas übermalen würde. Durch OnMouseDown, OnMouseMove und OnMouseUp kann man dann ohne Probleme eine Selektion realisieren. Es wird also nicht das OnDrawCell-Ereignis dafür benötigt.
Viele Grüße
Borni