Author:Perl
今天上班,同事跟俺说觉得DELPHI创建窗体的代码每次都要打两三行特麻烦,叫俺给他写个创建窗体的函数,好,那就写吧,用了五分钟时间写了个,中间因为类的继承搞错了花了我点时间,呵呵~~
以后要创建窗体一行代码就完了,自己也省力,同事也省力,哈哈~~
///
function CForm( TCForm:TFormClass;FormName:TForm):Boolean;
begin
try
FormName := TCForm.create(Application);
FormName.Show;
Result := True; //创建成功返回TRUE
except
Result := False; //创建失败返回FALSE并退出改函数
Exit;
end;
end;
//
DELPHI创建动态窗体函数
最新推荐文章于 2019-01-09 10:41:59 发布