to agui
想问一下
procedure CheckFormCreate( AFormClass: TFormClass; var AForm: TForm );
begin
if not Assigned(AForm) then
AForm := AFormClass.Create( Application );
end;
直接这样行吗
procedure CheckFormCreate( AFormClass: TFormClass; var AForm );
var
BForm: TForm absolute AForm;
begin
if not Assigned(BForm) then
BForm := AFormClass.Create( Application );
end;