如何改变BitBtn的颜色，在线急等……

sunnysongwang 2003-11-19 11:43:01

如何改变BitBtn的颜色，在线急等……

...全文

65 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

rick29 2003-11-19

打赏
举报

回复

自己写个控件好了，从TBitBtn继承一下，估计两三天慢慢来也就能写完了……

dulei115 2003-11-19

打赏
举报

回复

没有现成的东东，当初的一个也是要颜色，改用的Panel。

dulei115 2003-11-19

打赏
举报

回复

楼主，不能写的事件通过其它方法实现

sunnysongwang 2003-11-19

打赏
举报

回复

您有没有现成的东东啊……

dulei115 2003-11-19

打赏
举报

回复

那就没办法了，要么不要颜色，要么自己写或找控件去

sunnysongwang 2003-11-19

打赏
举报

回复

panel写不了TBitBtn的事件啊？

dulei115 2003-11-19

打赏
举报

回复

TBitBtn不能改变背景色，如果一定要颜色的效果，改用Panel。

delphi_bitbtn图标 delphi_bitbtn图标 delphi_bitbtn图标 delphi_bitbtn图标

Delphi位图按钮BitBtn如何实现按下去显示一张图片,弹起来显示另一张图片

delphi11中使用style，dialog中list和edit类不失效，使用style扩展类可以解决。 procedure TForm1.BitBtn10Click(Sender: TObject); var Dialog: TFileOpenDialog; begin UseLatestCommonDialogs := false; Dialog := TFileOpenDialog.Create(nil); Dialog.DefaultFolder:='c:\'; try Dialog.Options := Dialog.Options + [fdoPickFolders]; // 设置对话框选项，只显示文件夹选项 if Dialog.Execute then begin // 用户选择了文件夹 ShowMessage(Dialog.FileName); // 显示所选文件夹路径 end; finally Dialog.Free; end; end; procedure TForm1.

教师工资管理系统，所涉及的功能基本都全了，直接用就可以。 Function Biscf: Boolean;//判断员工信息在员工基础信息表中是否存在 Function Iscf: Boolean; //判断列表项是否有重复选项 procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Procedure ClearString; Procedure ClearStringEnd; procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); procedure StringGrid1KeyPress(Sender: TObject; var Key: Char); procedure StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ListBox1DblClick(Sender: TObject); procedure ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure BitBtn2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject);

能够显示图片按钮，按下和弹起可以实现两种不同的效果。对UI界面有要求时可以使用。

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章