【结贴】[请求]gruplist的点击事件无法判断左右键**

roice · 发表于 2008-12-19 10:51:10

procedure TMAILCENTERFORM.glMailMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

if Button = mbLeft then

提示 mbLeft 未定义

zfang · 发表于 2008-12-19 11:02:32

看一下studio的帮助。

roice · 发表于 2008-12-19 11:08:45

studio 帮助早看过了搜索结果;

NameSpace: Business.Forms
--------------------------------------------------------------------------------
TMouseButton = (mbLeft, mbRight, mbMiddle);

就这三个应该没错就是不行

zfang · 发表于 2008-12-19 11:12:47

看过了那就应该知道了。
这样子写看看
if Button = TMouseButton.mbLeft then

roice · 发表于 2008-12-19 11:20:19

果然可以了，纯低级错误。。。

非常感谢

zfang · 发表于 2008-12-19 11:22:45

呵呵，客气，结贴。

		自动登录	找回密码
密码			立即注册