Group_01/D7DJkefu
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

键盘可移动

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-29 16:38:30 +08:00
parent 8ca2a12f14
commit a15bec0e3b
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
复合检验管理/U_MJManageNewFDNew.dfm
View File

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

9
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -400,6 +400,7 @@ type
procedure SpeedButton19DblClick(Sender: TObject); procedure SpeedButton19DblClick(Sender: TObject);
procedure Button13Click(Sender: TObject); procedure Button13Click(Sender: TObject);
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -1797,7 +1798,6 @@ var
mvalue1: integer; mvalue1: integer;
i: Integer; i: Integer;
begin begin
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
begin begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
@ -3613,5 +3613,12 @@ begin
end; end;
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. end.