in vclmode works well,
but
in webmode do not work.
these are parts of my code:
procedure TMainForm.MyEventClk(cPrgName:String; cCaption:string);
var
Child:TUniForm;
begin
...
try
Child := TUniFormClass(FindClass('TFrm'+cPrgName)).Create(UniApplication);
MyEventOn(Child,cPrgName,cCaption);
except
ShowMessage(cPrgName+ ' 尚未建立 not found.');
end;
end;
...
end;
procedure TMainForm.MyEventOn(xForm: TUniForm; cPrgName: String; cCaption:string);
begin
with xForm do
begin
ShowModal;
end;
end;