mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-07 15:47:45 +02:00
28 lines
349 B
ObjectPascal
28 lines
349 B
ObjectPascal
unit myform;
|
|
|
|
interface
|
|
|
|
uses classes, FormFactory, MyFormDep;
|
|
|
|
Type
|
|
TMyForm = Class(TComponent)
|
|
Public
|
|
Constructor Create(aOWner : TComponent); override;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses web, myformdep2;
|
|
|
|
Constructor TMyForm.Create(aOWner : TComponent);
|
|
|
|
|
|
begin
|
|
window.alert('TMyForm created!');
|
|
end;
|
|
|
|
begin
|
|
RegisterForm(TMyForm);
|
|
end.
|