請問StringGrid 如何達到選取Rows時，自動上移捲動(沒按ScrollBar)? 如圖示，按滑鼠左鍵不放，下移到底部，可區域選取（只是做辨視）， 我可得知開始Row及結束Row，但是只能限於當前頁面， 請問如何判斷滑鼠已到StringGrid當前頁面的底部？ 或是有何好方法讓其自動捲動？    

您好, 請問您設了那些 stringgrid 的 property. 我試過, 在一個新的 project 拉一個 tstringgrid, rowcount 設為40; 再拉二個 tedit; stringgrid 的 mousedown, mouseup 的 handler 分別如下: procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin edit1.Text:=inttostr(stringgrid1.Selection.top); end; procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin edit2.Text:=inttostr(stringgrid1.Selection.Bottom); end; 可以做到您的需求, 且會自動 scroll, 唯一缺點是 selection 的top 那一 cell 不會變成藍色, 而是以虛線框起來... 不知我是否理解您的問題

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

st33chen您好： 非常感謝你的回應，stringgrid 的 property.option.goedit是設true, 所以無法使用stringgrid本身的窗選功能。 為回應你的熱心參與，我把主要code貼上來，大家互相研究研究，其實我已經想到了另一個辦法了，就是用Shift鍵代替MouseMove，只不過無法馬上變色而已。 順便請教你一下，你知道Shift鍵的代碼嗎？ 我的這個stringgrid的功能是要做到，複製、剪下、貼上、插入、刪除...等功能，現在已經測試差不多了。

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (ARow>=a) and (ARow<=b) and (ACol>=c)and (ACol<=d) then
  begin
  StringGrid1.Canvas.Brush.Color:=clRed;
  StringGrid1.Canvas.FillRect(Rect);
  StringGrid1.Canvas.TextOut(Rect.Left 2,Rect.Top 2,StringGrid1.Cells[Acol,ARow]);
  end;
end;    procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin      id := Stringgrid1.Mousecoord(x,y);  //取得目前mouse所在之col及row
  if (id.x >= 0) and (id.y > 0) then  //從col0及row1開始
     Edit1.Text := '('   IntToStr(id.x)   ','   IntToStr(id.Y)   ')';
  if e = 1 then
  begin
  b:=id.Y;
  stringGrid1.Repaint;
  end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
a:=-1;
b:=-1;
c:=-1;
d:=-1;
e:=-1;
end;    procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (id.X = 0)and(id.Y >0) then //限制只能col第一行變顏色
  begin
  a:=id.Y;
  c:=id.X;
  e:=1;
  end;
edit2.Text:=inttostr(a);
end;    procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
e:=0;
if (id.X = 0)and(id.Y >0) then
  begin
  b:=id.Y;
  d:=id.X;
  end;
edit3.Text:=inttostr(b);
stringGrid1.Repaint;
end;

你好

可以送 Window Message 叫 Grid 往下捲.

SendMessage(StringGrid1.Handle, WM_VSCROLL, MAKELONG(SB_LINEDOWN, 0), 0);