在DBGrid中怎么判断鼠标右键按下? 在mousedown中判断的确可以,但我要在按DBgrid的数据行时判断,这时候Mousedown事件不触发,我要判断按的是不是右键,然后弹出菜单 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin// if (button=mbRight) and (cellclick=true) then // showmessage('ok');end;procedure TForm1.DBGrid1CellClick(Column: TColumn);begin// cellclick:=true;end;procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin// cellclick:=false; if (button=mbRight) and (cellclick=true) then showmessage('ok');end;procedure TForm1.DBGrid1ColEnter(Sender: TObject);begin cellclick:=true;end;procedure TForm1.DBGrid1ColExit(Sender: TObject);begin cellclick:=false;end;以上不对,建议试试Thittests属性或是DBGrid1CellClick(Column: TColumn);中的Colum 你把dbgrid的popmenu的属性设置成你要弹出的菜单不可以吗? 你还是先添加一个PopupMenu吧,然后把DBGrid的popmenu设为刚才的PopupMenu,这样你的目的达到了 Delphi与.dat文件 再追加100分,关于这段代码哪里需要修改?一共200分... treeview和数据库的问题 quickreport分栏打印问题,请大家帮忙看看啊 高分求解!编程实现IE中用户名密码的输入问题。 MSN Messenger 6左侧的TAB是如何作出来了? dephi 7.0下载 使用OBJ文件 如何让formstyles为fsMDIChild的窗体没有标题栏呢? 急!用Delphi怎样实现nd5加密?? 关于SQL的菜鸟问题 在三层中怎样实现实时刷新?(就是说在一个客户端修改了数据,在其他客户端不需要用户按刷新按钮对应的DBGRID就自动刷新了。)这种功能有
Shift: TShiftState; X, Y: Integer);
begin
// if (button=mbRight) and (cellclick=true) then
// showmessage('ok');
end;procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
// cellclick:=true;
end;procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// cellclick:=false;
if (button=mbRight) and (cellclick=true) then
showmessage('ok');
end;procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
cellclick:=true;end;procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
cellclick:=false;
end;
以上不对,建议试试Thittests属性或是DBGrid1CellClick(Column: TColumn);中的Colum