Changeset 103 for Docking/CoolDocking/Demo/UDockForm.pas

Timestamp:

Dec 29, 2010, 1:56:04 PM (14 years ago)

Author:

george

Message:

• Fixed: Hiding invisible docked forms as tabs.
• Added: Ability to bring window to front on execute Form.Show.

File:

• Docking/CoolDocking/Demo/UDockForm.pas (modified) (2 diffs)

Docking/CoolDocking/Demo/UDockForm.pas

@@ -16 +16 @@
     CoolDockClient1: TCoolDockClient;
     Memo1: TMemo;
+    procedure FormDestroy(Sender: TObject);
   private
     { private declarations }
@@ -29 +30 @@
 {$R *.lfm}
 
+{ TDockForm }
+
+procedure TDockForm.FormDestroy(Sender: TObject);
+var
+  Temp: string;
+begin
+  Temp := Name;
+end;
+
 end.