窗口显示不全。

Forms/IPFrm.dfm

@@ -1,6 +1,6 @@
 object IPForm: TIPForm
-  Left = 1104
-  Top = 329
+  Left = 1030
+  Top = 363
   ActiveControl = edtIP
   AutoSize = True
   BorderStyle = bsDialog
@@ -14,6 +14,7 @@ object IPForm: TIPForm
   Font.Name = #24494#36719#38597#40657
   Font.Style = []
   OldCreateOrder = False
+  Position = poScreenCenter
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 19