Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

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