社区
Delphi
帖子详情
一个很菜的问题关于 BitBtn与Button
wrqwrq
2003-09-29 03:09:50
BitBtn继承自TBitBtn,而TBitBtn又继承自TButton,但是有一个问题我不大明白,比如说我现在新建一个窗体,然后在窗体上放一个BitBtn,把Kind属性设置为bkClose,
然后我们运行这个程序,点击BitBtn按钮,程序就会结束,这是为什么?请高手详细说明,谢谢。
...全文
62
2
打赏
收藏
一个很菜的问题关于 BitBtn与Button
BitBtn继承自TBitBtn,而TBitBtn又继承自TButton,但是有一个问题我不大明白,比如说我现在新建一个窗体,然后在窗体上放一个BitBtn,把Kind属性设置为bkClose, 然后我们运行这个程序,点击BitBtn按钮,程序就会结束,这是为什么?请高手详细说明,谢谢。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wrqwrq
2003-09-29
打赏
举报
回复
明白了谢谢。
lxl
2003-09-29
打赏
举报
回复
这是BITBTN源程序中写在TBitBtn.Click(=ONCLICK)的一部分,其中FKIND为当前的BITBTN的KIND PROPERTY
case FKind of
bkClose:
begin
//得到BITBTN所在的FORM
Form := GetParentForm(Self);
//如果FORM<>NIL 就完成关闭当前FORM的
if Form <> nil then Form.Close
//否则就去完成DELPHI用户写的CLICK代码
else inherited Click;
end;
明白了吗?
delphi_
bit
btn
图标
delphi_
bit
btn
图标 delphi_
bit
btn
图标 delphi_
bit
btn
图标 delphi_
bit
btn
图标
Delphi位图按钮
Bit
Btn
如何实现按下去显示一张图片,弹起来显示另一张图片.zip
Delphi位图按钮
Bit
Btn
如何实现按下去显示一张图片,弹起来显示另一张图片
一个
Delphi程序人机录入窗口实例源代码.rar
一个
Delphi程序录入窗口【源码】,是
一个
供用户向数据库中输入数据的用户界面,很多数据库系统都需要类似的界面,本例比较基础,面向Delphi初学者。核心代码: procedure TForm1.Edit4Exit(Sender: TObject); ...
Delphi+MsSQL教师工资管理原版
procedure
Bit
Btn
1MouseDown(Sender: TObject;
Button
: TMouse
Button
; Shift: TShiftState; X, Y: Integer); Procedure ClearString; Procedure ClearStringEnd; procedure
Bit
Btn
1MouseUp(Sender: TObject...
delphiword编辑器
procedure
Button
1Click(Sender: TObject); procedure
Bit
Btn
1Click(Sender: TObject); procedure DBEdit1Change(Sender: TObject); private procedure s_ole_clickck(Sender:TObject;
Button
:TMouse
Button
; ...
Delphi
5,386
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章