Jump to content

Recommended Posts

Posted

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...