当前位置:主页>仓库管理软件> 列表

当鼠标移动到某一指定的区域的时候,该区域按钮变为可操作,移

仓库管理软件版1楼: 当鼠标移动到某一指定的区域的时候(或者是panel里面),该区域按钮变为可操作,移出来的时候,该区域按钮变灰,如何实现??

2楼: 处理下面两个消息:
CM_MOUSEENTER
CM_MOUSELEAVE
可以搜索一下就有答案 如速达财务软件单机版

3楼: 好象有这两个事件啊,在这两个事件里加代码就行了!

4楼: 我用的是delphi 5.0 没有这两个事件,有没有例子啊?
兄弟

5楼: 搜一搜数据库,一般的技术问题几乎都不用问.

6楼: panel有OnMouseMove事件啊

仓库管理软件版7楼: //设置button1和button2在Groupbox1上
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>Groupbox1.Left) and (Xgroupbox1.Top )and (Y begin
button1.Enabled :=true;
button2.Enabled :=true;
end
else
button1.Enabled :=false;
button2.Enabled :=false;
end;

procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
button1.Enabled :=true;
button2.Enabled :=true;
end;

在WinXP D7 中调试通过

8楼: 问题解决了没有,
如果解决了,请楼主揭帖
如果没有请继续描述