Group_DJD/D7DJchucheng
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:11:09 +08:00
parent 41ef4c242e
commit b816bf3f48
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -1600,7 +1600,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
'1' '1'
'2' '2'
'3' '3'
'4') '4'
'5'
'6'
'7')
end end
object MJStr4: TEdit object MJStr4: TEdit
Left = 57 Left = 57
@ -2534,7 +2537,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Color = clSkyBlue Color = clSkyBlue
TabOrder = 7 TabOrder = 7
object Label2: TLabel object Label2: TLabel
Left = 684 Left = 725
Top = 4 Top = 4
Width = 40 Width = 40
Height = 19 Height = 19
@ -2570,7 +2573,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label25: TLabel object Label25: TLabel
Left = 346 Left = 387
Top = 4 Top = 4
Width = 40 Width = 40
Height = 19 Height = 19
@ -2598,7 +2601,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label38: TLabel object Label38: TLabel
Left = 178 Left = 219
Top = 4 Top = 4
Width = 40 Width = 40
Height = 19 Height = 19
@ -2640,7 +2643,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label47: TLabel object Label47: TLabel
Left = 515 Left = 556
Top = 4 Top = 4
Width = 60 Width = 60
Height = 19 Height = 19

4
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -621,8 +621,8 @@ begin
if Th > 0 then if Th > 0 then
begin begin
try try
Tp := GetProcAddress(Th, 'CommOpen'); Tp := GetProcAddress(Th, 'CommOpen');
if Tp <> nil then if Tp <> nil then
begin begin
Tf := TMyFunc(Tp); Tf := TMyFunc(Tp);
newh := Tf(self.Handle, 'Comm1', 500, 1); newh := Tf(self.Handle, 'Comm1', 500, 1);