键盘可移动

复合检验管理/U_MJManageNewFDNew.dfm

@@ -2604,15 +2604,18 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object Panel3: TPanel
-    Left = 602
-    Top = 468
+    Left = 618
+    Top = 316
     Width = 347
     Height = 334
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clSkyBlue
+    DragKind = dkDock
+    DragMode = dmAutomatic
     TabOrder = 5
     Visible = False
+    OnMouseDown = Panel3MouseDown
     object SpeedButton1: TSpeedButton
       Left = 5
       Top = 256

复合检验管理/U_MJManageNewFDNew.pas

@@ -400,6 +400,7 @@ type
     procedure SpeedButton19DblClick(Sender: TObject);
     procedure Button13Click(Sender: TObject);
     procedure Button5Click(Sender: TObject);
+    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   private
     { Private declarations }
     FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@@ -1797,7 +1798,6 @@ var
   mvalue1: integer;
   i: Integer;
 begin
-
   if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
   begin
     application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
@@ -3360,13 +3360,13 @@ begin
     JSKH.Visible := False;
     KH.Visible := False;
     PM.Visible := False;
-    YS.Visible := False;                  
+    YS.Visible := False;
     HX.Visible := False;
     SH.Visible := False;
     JC.Visible := False;
     jz.Visible := False;
     SLbName.Visible := False;
-                                                        
+
     Button9.Visible := False;
     Button10.Visible := False;
     Button5.Visible := False;
@@ -3609,9 +3609,16 @@ begin
       end;
     end;
   finally
-    frmSCPersonColor.close;
+    frmSCPersonColor.close;                         
   end;
 end;
 
+procedure TfrmMJManageNewFDNewSF.Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbLeft then
+    (Sender as TPanel).BeginDrag(false);
+
+end;
+
 end.