diff options
Diffstat (limited to 'unit2.pas')
-rw-r--r-- | unit2.pas | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/unit2.pas b/unit2.pas new file mode 100644 index 0000000..a870b32 --- /dev/null +++ b/unit2.pas @@ -0,0 +1,38 @@ +unit Unit2; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls; + +type + + { TForm2 } + + TForm2 = class(TForm) + Image1: TImage; + procedure FormActivate(Sender: TObject); + private + + public + + end; + +var + Form2: TForm2; + +implementation + +{$R *.lfm} + +{ TForm2 } + +procedure TForm2.FormActivate(Sender: TObject); +begin + // +end; + +end. + |