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