请问TSTRINGGRID的滚动条的上下移动可以控制吗？我想自己做两个按钮，向上和向下来控制TSTRINGGRID的上下移动，这样可以实现吗？

Hi cxg,    Hope helpful :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringGrid1.Row >= 1 then
    StringGrid1.Row := StringGrid1.Row - 1;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  if StringGrid1.Row < (StringGrid1.RowCount -1) then
    StringGrid1.Row := StringGrid1.Row   1;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi cxg, Hope helpful :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringGrid1.Row >= 1 then
    StringGrid1.Row := StringGrid1.Row - 1;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  if StringGrid1.Row < (StringGrid1.RowCount -1) then
    StringGrid1.Row := StringGrid1.Row   1;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 这种方法和移动TSTRINGGRID的滚动条效果不一样，是否可以实现滚动条一样的效果呢？谢谢指教。

如果只移動滾動條，可用 // 上移 SendMessage(StringGrid1.Handle,WM_VSCROLL,SB_LINEUP,0); // 下移 SendMessage(StringGrid1.Handle,WM_VSCROLL,SB_LINEDOWN,0); // 最上 SendMessage(StringGrid1.Handle,WM_VSCROLL,SB_TOP,0); // 最下 SendMessage(StringGrid1.Handle,WM_VSCROLL,SB_BOTTOM,0); 參考 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～