你先在窗体上放一个TApplicationEvents控件（Delphi自带的）,找到WmMouseWheelMessage事件。 &&下面是我实现的（这个用的是键盘的上下按键消息，你也可以改成滚动条消息）。 &&procedure &TMainForm.WmMouseWheelMessage(var &Msg: &tagMSG; && &var &Handled: &Boolean); &begin && &if &(DBGrid.Focused) &And &(Msg.message &= &WM_MOUSEWHEEL) &then && & & &begin && & & & & &if &Msg.wParam && &0 &then && & & & & & & &SendMessage(DBGrid.Handle, &WM_KEYDOWN, &VK_UP, &0) && & & & & &else && & & & & & & &SendMessage(DBGrid.Handle, &WM_KEYDOWN, &VK_DOWN, &0); && & & & & &Handled &:= &T && & & & & &------------------------------------------------------------------------- &问题解决，特别感谢barely(一哥) &DBGRID这么写，先加一个TApplicationEvents, &procedure &TForm1.ApplicationEvents1Message(var &Msg: &tagMSG; && &var &Handled: &Boolean); &begin &&if &(DBGrid1.Focused) &And &(Msg.message &= &WM_MOUSEWHEEL) &then && & & &begin && & & & & &if &Msg.wParam && &0 &then && & & & & & & &SendMessage(DBGrid1.Handle, &WM_KEYDOWN, &VK_UP, &0) && & & & & &else && & & & & & & &SendMessage(DBGrid1.Handle, &WM_KEYDOWN, &VK_DOWN, &0); && & & & & &Handled &:= &T && & & & & &stringgrid这么写 &procedure &TForm1.ApplicationEvents1Message(var &Msg: &tagMSG; && &var &Handled: &Boolean); &begin &&if &(stringGrid1.Focused) &And &(Msg.message &= &WM_MOUSEWHEEL) &then && & & &begin && & & & & &if &Msg.wParam && &0 &then && & & & & & & &SendMessage(stringGrid1.Handle, &WM_KEYDOWN, &VK_UP, &0) && & & & & &else && & & & & & & &SendMessage(stringGrid1.Handle, &WM_KEYDOWN, &VK_DOWN, &0); && & & & & &Handled &:= &T && & & & &&&
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：179309次
积分：3402
积分：3402
排名：第3707名
原创：155篇
转载：37篇
评论：24条
(1)(4)(1)(1)(1)(1)(1)(1)(2)(1)(3)(1)(1)(1)(1)(2)(1)(2)(5)(1)(1)(1)(1)(1)(1)(3)(3)(2)(2)(5)(2)(7)(1)(2)(5)(6)(1)(8)(1)(3)(3)(3)(5)(6)(9)(3)(2)(3)(1)(6)(2)(3)(5)(3)(7)(1)(2)(1)(1)(1)(7)(3)(6)(3)(2)(3)(1)(1)(1)(2)(3)(1)(1)(4)delphi中stringgrid中我想通过点击fixedrows设置的固定行选中一整行,类似excel,_百度知道
delphi中stringgrid中我想通过点击fixedrows设置的固定行选中一整行,类似excel,
com/zhidao/pic/item//zhidao/wh%3D600%2C800/sign=24e66eafd21b0ef46cbd9058edf47de2/ae51f3deb48f8c5414cae3ae3a292df5e0fe7f11.baidu.hiphotos.jpg" />我现在不能操作固定表头.baidu.hiphotos://a.com/zhidao/wh%3D450%2C600/sign=2d4aceeb38bc96756fc20/ae51f3deb48f8c5414cae3ae3a292df5e0fe7f11.baidu://a://a.jpg" esrc="http.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http<a href="http,需要怎么设置
提问者采纳
除了不能合并单元格外、FixedCellClick事件中.StringGrid1FixedCellClick(Sender，选中最左上那一格时选中所有; 同理;
mRect.Bend:= AR
end:= 1:= StringGrid1;
mRect，判断是否点到左边表头;&
StringGrid1:= mR ACvar
mRect.1。2，还能做选中一列,其它大部分功能都能做得与EXCEL差不多;begin
if (ACol = 0) and (ARow &
mRect: TGridRect.Left。3。procedure TForm1,goFixedColClick选中为true:= ARow,: Integer).这是为了使FIXED事件起作用.Top: TObject.RowCount - 1.Right可以的,
ARow.Selection、将Options属性中的; 0) then
mRect、将那一行都设为选中状态就行了
提问者评价
其他类似问题
stringgrid的相关知识
其他1条回答
不可以，或者你用doubleclick，选中一行
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁delphi如何将stringGrid里面的内容显示到另一个form的edit中_百度知道
delphi如何将stringGrid里面的内容显示到另一个form的edit中
或者是一个窗体的某个按钮如何调用另一个窗体中stringGrid的双击触发事件程序
stringgird里面的内容是：stringgrid.Cells[i,j];
其他类似问题
stringgrid的相关知识
其他1条回答
将s憨孩封绞莩悸凤溪脯娄tringGrid里面的内容显示到另一个form的edit中stringgrid的双击事件和单击事件都一样：var
i,j: begin
from2.edit1.text:=stringgrid.Cells[i,j];
from2.S一个窗体的某个按钮如何调用另一个窗体中stringGrid的双击触发事件程序 ：比如说是button按钮的单击事件调用stringGrid的双击事件stringgrid.dbclick(sender)
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁打印StringGrid的内容
[问题点数：20分，结帖人jackie168]
打印StringGrid的内容
[问题点数：20分，结帖人jackie168]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2003年8月 Delphi大版内专家分月排行榜第二
2003年2月 Delphi大版内专家分月排行榜第一2003年1月 Delphi大版内专家分月排行榜第一2002年12月 Delphi大版内专家分月排行榜第一
2002年6月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。}