diff options
author | Erich Eckner <git@eckner.net> | 2016-09-10 16:35:18 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2016-09-10 16:35:18 +0200 |
commit | a0b9d3beeb68e0213275d93c74b1137fd0afc017 (patch) | |
tree | 09f8ea91d5f3c2bfcff7b34362e2d20d6230ab64 /unit2.pas | |
parent | 69310448c9bec42541def7813c3019d8cab0724c (diff) | |
download | Raetsel-a0b9d3beeb68e0213275d93c74b1137fd0afc017.tar.xz |
irgendwas gemacht
Diffstat (limited to 'unit2.pas')
-rw-r--r-- | unit2.pas | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/unit2.pas b/unit2.pas new file mode 100644 index 0000000..9403550 --- /dev/null +++ b/unit2.pas @@ -0,0 +1,49 @@ +unit Unit2; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; + +type + + { TForm2 } + + TForm2 = class(TForm) + Button1: TButton; + Button2: TButton; + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { private declarations } + public + { public declarations } + end; + +var + Form2: TForm2; + +const + mrHochhausraetsel = 314; + mrBuchstabenraetsel = 315; + +implementation + +{$R *.lfm} + +{ TForm2 } + +procedure TForm2.Button1Click(Sender: TObject); +begin + modalResult:=mrHochhausraetsel; +end; + +procedure TForm2.Button2Click(Sender: TObject); +begin + modalResult:=mrBuchstabenraetsel; +end; + +end. + |