Editieren der ausgewählten Lösung nun möglich

1 files changed, 12 insertions, 1 deletions

diff --git a/unit1.pas b/unit1.pas
index 716c1ef..da318a7 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -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);