Delphi 小技巧两则

　　with TfrmPassword.Create(nil)

do　　

try

　　ShowModal;　

　finally　

　Free;　

　end;　　

　　虽然这样的代码已经很简洁，但如果写个十七八个还是很讨厌的。利用类方法可以使其更简洁！

一行足以……　　

TfrmPassword = class(TForm)　

　...　　

public

　　{ Public declarations }　　

class f tion Execute: TModalResult;　　

end;　

　...

　　class function TfrmPassword.Execute:

TModalResult;　

　begin

　　with TfrmPassword.Create(nil)

do　

　try 　

　Result := ShowModal;　

　finally

　　Release; //注意此处必须为release不能为free！　



　end;　

　end;　

　然后只用一行　　

　　TfrmPassword.Execute;　　　　

即可直接完成调用……是否很爽^_^

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18