Jump to content

about TUniFormClass


koney

Recommended Posts

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;

post-78-0-71258700-1310183639_thumb.jpg

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...