Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - "multiselction" im Stringgrid?


D. Annies - Do 03.02.11 19:14
Titel: "multiselction" im Stringgrid?
Hi, Delpher,

welche Möglichkeit gibt es, in einem Stringgrid auch nicht nebeneinander liegende Spalten gemeinsam zu selektieren?

also z.B. die dritte, vierte und die sechste?
Mein Code kann nur einzelne oder nebeneinander liegende Spalten selektieren:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
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;


Danke, Detlef


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.