Changeset 4 for trunk/UMainForm.pas

Timestamp:

Dec 3, 2009, 9:09:58 AM (14 years ago)

Author:

george

Message:

• Modified: Minor changes.

File:

• trunk/UMainForm.pas (modified) (2 diffs)

trunk/UMainForm.pas

@@ -19 +19 @@
     procedure FormDestroy(Sender: TObject);
     procedure Button1Click(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     procedure DoLineRecieve(Line: string);
@@ -61 +62 @@
 end;
 
+procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  LoaderForm.Close;
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 begin