社区
Delphi
帖子详情
一个很菜的问题关于 BitBtn与Button
wrqwrq
2003-09-29 03:09:50
BitBtn继承自TBitBtn,而TBitBtn又继承自TButton,但是有一个问题我不大明白,比如说我现在新建一个窗体,然后在窗体上放一个BitBtn,把Kind属性设置为bkClose,
然后我们运行这个程序,点击BitBtn按钮,程序就会结束,这是为什么?请高手详细说明,谢谢。
...全文
66
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); begin IF Edit4.text<>'' then Edit5.Text := Format('%7.2m', [StrToFloat(Edit4.Text)* StrToFloat(edit3.text)]); end; procedure TForm1.
Button
3Click(Sender: TObject); begin CLOSE; end; procedure TForm1.
Bit
Btn
4Click(Sender: TObject); begin Close; end;
Delphi+MsSQL教师工资管理原版
教师工资管理系统,所涉及的功能基本都全了,直接用就可以。 Function Biscf: Boolean;//判断员工信息在员工基础信息表中是否存在 Function Iscf: Boolean; //判断列表项是否有重复选项 procedure
Bit
Btn
1MouseDown(Sender: TObject;
Button
: TMouse
Button
; Shift: TShiftState; X, Y: Integer); Procedure ClearString; Procedure ClearStringEnd; procedure
Bit
Btn
1MouseUp(Sender: TObject;
Button
: TMouse
Button
; 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);
delphiword编辑器
unit PreviewWord; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, OleCtnrs,ComObj,
Button
s, Mask, DBCtrls, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; OpenDialog1: TOpenDialog; OleContainer2: TOleContainer; DBEdit1: TDBEdit; DataSource1: TDataSource;
Bit
Btn
1: T
Bit
Btn
;
Button
1: T
Button
; Panel1: TPanel; ScrollBox1: TScrollBox; OleContainer1: TOleContainer; ScrollBox2: TScrollBox; Splitter1: TSplitter; 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
; Shift: TShiftState; X, Y: Integer); function create_S_Ole(nn:integer):ToleContainer; procedure delete_s_ole; { Private declarations } public { Public declarations } end; var Form1: TForm1;
Delphi
5,387
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章