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:

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

[D. Annies]

Ich hab's gelöst, indem ich in den Options die Spalten verschiebbar gesetzt habe. Dann kann ich die getrennt liegenden Spalten nebeneinander setzen und als Block bearbeiten.
Gruß, Detlef