请教个问题... Delphi里有哪个控件可以实现下面功能:有按钮的功能(click),然后可以在mousemove的时候产生突出或下陷的效果,然后平时是平面的,和label一样。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 abc控件在哪里呢?还有flatstyle 你可以在 mousemove ,onclick 事件里写。 控件也是这样做的。只是切换图片而以。 根据我的理解你用panel控件,它本身也有click事件,并且你先把panel的BevelOuter属性设为bvnoneprocedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginPanel1.BevelInner:=bvLowered;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Panel1.BevelInner:=bvRaised;end;procedure TForm1.Panel1Click(Sender: TObject);beginshowmessage('测试');end; 但有个问题:Panel好象没有图像的属性。 TreeView的显示速度问题 要做个小型erp软件,要多少银子啊? h:=FindWindow(nil,pchat(变量));这个什么才可以用变量? 寻求delphi源代码实例 虚心求教!!!关于菜单关联控制的问题!!! 在intraweb 程序中添加 记录的问题,送分 关于数据库数据的导如和导出 当数据库连接不成功时,该如何拦截?并将之导到连接配置窗体中去? Delphi不认DragAcceptFiles WinAPI函数,请Delphi大侠帮忙! 如何给button加颜色? 紧急!!!求助!! 高手啊,救救我。
控件也是这样做的。只是切换图片而以。
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.BevelInner:=bvLowered;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.BevelInner:=bvRaised;
end;
procedure TForm1.Panel1Click(Sender: TObject);
begin
showmessage('测试');
end;