Multiselect / extendedSelect bei Stringgrids?

**D. Annies**

Hallo, Delpher,
ich brauche einen Code, mit dem ich in einem Stringgrid auch mehrere nicht-verbundene Spalten markieren kann.

Bisher habe ich:

markieren

Delphi-Quellcode:

			procedure TBuchMain.TntStringGrid3MouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var c,r : Integer;

begin

  TntStringGrid3.MouseToCell(X,Y,c,r);

  if (r = 0) and (c >= 3) AND (c < tntstringgrid3.ColCount-1)  then

    TntStringGrid3.Selection := TGridRect(Rect(c,1,c,TntStringGrid3.RowCount-1));

end;

aber die Spalten müssen dabei leider zusammenhängend sein.

Vielen Dank für eine Idee,
Detlef

Multiselect / extendedSelect bei Stringgrids?

Multiselect / extendedSelect bei Stringgrids?

Forumregeln