社区
Delphi
帖子详情
初学者问题:如何隐藏BITBTN所加载的图片!
DirtyFish
2003-08-19 08:14:55
在代码里添加,是不是Glyph的属性,还是KIND的属性?
...全文
30
2
打赏
收藏
初学者问题:如何隐藏BITBTN所加载的图片!
在代码里添加,是不是Glyph的属性,还是KIND的属性?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
swayi21
2003-08-21
打赏
举报
回复
Up to Spqk005(舍甫琴柯)
Spqk005
2003-08-19
打赏
举报
回复
用bitbtn1.Glyph.Assign(nil);
Delphi位图按钮
Bit
Btn
如何实现按下去显示一张
图片
,弹起来显示另一张
图片
.zip
Delphi位图按钮
Bit
Btn
如何实现按下去显示一张
图片
,弹起来显示另一张
图片
delphi_
bit
btn
图标
delphi_
bit
btn
图标 delphi_
bit
btn
图标 delphi_
bit
btn
图标 delphi_
bit
btn
图标
源码演示Delphi 如何放大和缩小图像【
图片
】.rar
源码演示Delphi 如何放大和缩小图像【
图片
】,我们这个例子可以学习了解如何使用Delphi编程代码,放大或缩小一张
图片
,这里把放大和缩小
图片
的基数写在按钮事件中,用户每次单击按钮,就会按照一定的缩放倍数放大或缩小图像,本示例测试
图片
已写入程序中,编译运行后操作并演示效果,对图像的缩放部分,重点参考以下代码:
图片
缩小操作: procedure TForm1.
Bit
Btn
1Click(Sender: TObject); begin if image1.Height>50 then begin image1.Height:=image1.Height-10; image1.Width:=image1.Width-13; end; end;
图片
放大操作: procedure TForm1.
Bit
Btn
2Click(Sender: TObject); begin if image1.Height<370 then begin image1.Height:=image1.Height 10; image1.Width:=image1.Width 13; end; end;
Delphi写的中英文翻译程序源代码.rar
Delphi写的中英文翻译程序源代码,好像调用的网址失效了,现在无法翻译了,这个程序和网络有关,同时实现对字符的控制,面向
初学者
。下面是核心的代码: procedure TForm1.
Bit
Btn
4Click(Sender: TObject); var str:string; mystr:widestring; begin mystr:= leftstr(edit1.Text,2); str:= leftstr(edit1.Text,2); if length(str)= length(mystr) then showMESSAGE('您输入的英文,将翻译成汉语!') else begin showMESSAGE('您输入的汉语,将翻译成英文!'); end; end;
Delphi+MsSQL教师工资管理原版
教师工资管理系统,所涉及的功能基本都全了,直接用就可以。 Function Biscf: Boolean;//判断员工信息在员工基础信息表中是否存在 Function Iscf: Boolean; //判断列表项是否有重复选项 procedure
Bit
Btn
1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Procedure ClearString; Procedure ClearStringEnd; procedure
Bit
Btn
1MouseUp(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
Bit
Btn
2Click(Sender: TObject); procedure
Bit
Btn
1Click(Sender: TObject);
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章