diff options
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 13 |
1 files changed, 12 insertions, 1 deletions
@@ -29,6 +29,7 @@ type procedure FormResize(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure iterationsCallBack(Sender: TObject);
+ procedure ListBox1DblClick(Sender: TObject);
procedure loesungsCallBack(Sender: TObject);
private
{ private declarations }
@@ -45,7 +46,7 @@ implementation {$R *.lfm}
-uses unit3;
+uses unit3, unit4;
{ TForm1 }
@@ -106,6 +107,16 @@ begin end;
end;
+procedure TForm1.ListBox1DblClick(Sender: TObject);
+begin
+ if (Listbox1.Itemindex>=0) and
+ (Listbox1.Itemindex<length(loesungen.inhalt)) then begin
+ form3.loesung.free;
+ form3.loesung:=tLoesung.create(loesungen.inhalt[listBox1.itemIndex]);
+ form3.showModal;
+ end;
+end;
+
procedure TForm1.loesungsCallBack(Sender: TObject);
begin
inc(c2);
|