Выбрать ВСЕ выделенные ячейки в StringGrid

[Os_Mary]

Подскажите, плз, как, пройдя в цикле по строкам StringGrid, выбрать все
выделенные строки (или ячейки), в случае, когда выделено множество строк...

[Serge_Bliznykov]

попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  for i:=StringGrid1.Selection.Left to StringGrid1.Selection.Right do
    for j:=StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do
      ShowMessage('Col '+IntToStr(i)+' Row: '+IntToStr(j)+'  value = '+StringGrid1.Cells[i,j]);
end;

[Os_Mary]

Спасибо! Получилось.
Еще одна просьба: можно ли организовать Multiselect в StringGrid?
С Shift позволяет выделить несколько строк, но только подряд.
Можо ли с Ctrl выделять произвольные строки?

[asmodey1]

В стандартном - нет (Д7). Только область. Свойство goRangeSelect.

[Stilet]

Можо ли с Ctrl выделять произвольные строки?

Не припомню там такую возможность, но ты всегда можешь либо использовать вместо грида ListView, либо написать на основе Грида новый компонент, или донавернуть этот грид примерно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TStringGrid=class(Grids.TStringGrid)
  private
   SelectedRows:TList;
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
  end;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TStringGrid }

constructor TStringGrid.Create(AOwner: TComponent);
begin
  inherited;
  SelectedRows:=TList.Create;
end;

destructor TStringGrid.Destroy;
begin
  SelectedRows.Free;
  inherited;
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var r,i:integer;
begin
 if ssctrl in Shift then begin
  with TStringGrid(Sender) do begin
   r:=MouseCoord(x,y).y;
   i:=SelectedRows.IndexOf(Pointer(r));
   if i=-1 then SelectedRows.Add(pointer(r))
   else SelectedRows.Delete(i);
   Repaint;
  end;
 end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with TStringGrid(Sender) do begin
  if SelectedRows.IndexOf(Pointer(Arow))<>-1 then begin
   Canvas.Brush.Color:=clSilver;
   Canvas.FillRect(Rect);
   Canvas.TextOut(rect.Left,Rect.Top,Cells[acol,arow]);
  end;
 end;
end;

end.

Что в принципе не так уж и сложно

[Os_Mary]

Большое спасибо всем за помошь!