我希望按纽有背景颜色,谁知道哪有控件可下载? email to [email protected] ,please. Thank you! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果找不到第三方控件,可以试着用Panel当作Button,Panel可以设置Color。 如果找不到第三方控件,可以试着用Panel当作Button,Panel可以设置Color。 但它没有按钮被按下去的效果,不过改一下Panel 的BevelOuter属性就可以了!procedure TForm1.Panel1MouseDown(Sender:TObject;Button: TMouseButton;Shift:TShiftState;X,Y:Integer);begin Panel1.BevelOuter:=bvLowered;end;procedure TForm1.Panel1MouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);begin Panel1.BevelOuter:=bvNone;end; Delphi for php 一天使用记,4个死 关于验证码图片的保存 第一次做三层结构,有经验的朋友请指点一下 带参数的EXE在命令行下如何启动? 多媒体编程的一个疑难问题~! 新手上路 一个连接数据库的问题,98连接WIN 2000Server为什么不行? 是否可以在filter中使用函数?比如,我想查copy(ziduan,1,1)='2'的,为什么出错? delphi2010 模拟网页登陆怎么样保存cookie 请问StringGrid能像EXECL一样在某一列中进行单元格合并吗? 如果不让针式打印机空走纸? 如何判断dbmemo为空,谢了
procedure TForm1.Panel1MouseDown(Sender:TObject;Button: TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
Panel1.BevelOuter:=bvLowered;
end;
procedure TForm1.Panel1MouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
Panel1.BevelOuter:=bvNone;
end;