📄 delphi一些经验.txt
字号:
Delphi一些经验:
(一)copy函数copy(ss,1,4),说明:取ss字符串的前四位字符从第一位字符开始
(二)退出窗体的提问:
procedure Tmainfrm.formclosequery(Sender:TObject;var CanClose:Boolean);
begin
if messagedog('真的要退出系统吗?',mtconfirmation,[mbyes,mbno],0)=mrno then
canclose:=false;//canclose是事件中系统自定义的一个boolean变量
end;
(三)调用菜单中的单击事件:k_login.onclick(self);//k_login是菜单中的子菜单的名称
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -