david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
23 lines
309 B
ObjectPascal
23 lines
309 B
ObjectPascal
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.
|