在form的Onmousedown事件中
if (shift=[ssShift]) and (button=mbleft) then
showmessage('鼠标左键!');
if (shift=[ssShift]) and (button=mbleft) then
showmessage('鼠标左键!');
解决方案 »
- 怎么把ASPHTTP.DLL生成ASPHTTP_TLB.pass文件?
- 如何能让dbgrid中的滚动条滚动,但是当前记录仍然不变呢?
- 致:kw123(阿柯) :
- 读取二进制文件
- 树型结构文件(加密压缩)可存储成类似于注册表结构的文件,谁要
- 写TXT的问题
- delphi如何上传文件到web服务器?
- 哪里有那种可以放入图片的编辑组件? RTF should be fine...
- 请问用delphi怎么样去查找屏幕中图片的位置,和颜色出现的位置,要不要用到哪些第三方控件啊?
- 使用quickreport开发时的一个问题
- 两个integer相除时如何只得到小数点后几位
- *** 高分,请问关于在Delphi中使用BDE的问题 ***
var
KeyState : TKeyBoardState;
begin
GetKeyboardState(KeyState);
if ((KeyState[vk_Shift] and 128) <> 0) then
Form2.show;
end;
Shift: TShiftState; X, Y: Integer);
begin
if (shift=[ssShift]) and (Button=mbLeft) then
Form2.Show;
end;