sample - form.pas

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

unit SampleForm;

interface

// interface's uses clause is ignored
// by OnGetUnitSource event
uses Windows, Messages, Forms;

implementation

uses fModalForm;

function main: string;
var
  Form: TForm;
begin
  Form := TMyModalForm.Create(nil);
  Form.ShowModal;
  Form.Free;
end;

end.