sample - makeform.pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 9 行

var
  MyForm: TForm;
begin
  MyForm := JvInterpreterMakeForm(ExePath + 'samples\fModalForm.pas');
  if MyForm.ShowModal = mrOk then
    showmessage('OK button clicked');
  MyForm.Free;
end;