超简单问题,如何让StringGrid的右键也能选择焦点,像左键一样
解决方案 »
- 长假了,散分~~
- post问题
- 急!急!急!如何成批修改dbgrid中的已选中的多条记录(不是连续的记录),如:选中了1,4,6条记录,现在将姓名字段的值 全部改为另一个值!!!
- 限制游标移动在指定的范围内?how?
- 谁有多余的QQ号啊?急需啊
- 分数不高希望各位鼎力相助,Delphi如何实现应用程序出现在任务栏右边和使机器扬声器发声?
- 如何设置文字的大小!
- 只能给这么多分求解,各位高手看过来.快帮帮我吧.
- 为什么Borland不发布中文版的Delphi(难到BORLAND公司看不起中国用户)
- OpenAs_RunDLL的函数原型?
- delphi里如何得到一个变量的地址值
- 怎样截获操作系统的打印消息?急急急
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
Button := mbLeft;
end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
else
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0)
end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
MousePos: TSmallPoint;
begin
if Button = mbRight then
begin
MousePos.x := x;
MousePos.y := y;
SendMessage(StringGrid1.Handle, WM_LBUTTONDOWN, 0, Integer(MousePos));
end;
end;