delphi一些经验.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 10 行

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是菜单中的子菜单的名称