Jump to content

koney

Members
  • Posts

    16
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by koney

  1. 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

×
×
  • Create New...