Tstringgrid Spalten Markieren

[Corpsman]

Hallo Leuts,

Ich hab hier ein Proggy gebastelt in dem ich beim Klick in mein Stringgrid einfach immer die entsprechende Spalte selektieren möchte.

Aber so

Delphi-Quellcode:

Procedure TForm1.StringGrid2SelectCell(Sender: TObject; ACol,
  ARow: Integer; Var CanSelect: Boolean);
Var
  m: TGridrect;
Begin
  m.Left := acol;
  m.Right := acol;
  m.top := 0;
  m.Bottom := StringGrid2.rowcount - 1;
  StringGrid2.Selection := m;
End;

gehts nicht, nur ist mir nicht ganz klar wieso ..

Das RangeSelect ist auf True ..

d.h. wenn ich von hand eine Komplette Spalte markiere gehts, nur eben nicht so wie oben auf den 1. klick

[taaktaak]

Moin, Moin.
Vermutlich wird das im OnDrawCell() gleich wieder übermalt.