sample - form.pas

来自「最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！」· PAS 代码 · 共 23 行

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.