From 713024ccb5056e76bcfc9389664981da68a5139f Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 14:08:01 +0800
Subject: [PATCH] feat: dfm to web
---
DocList.pas | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/DocList.pas b/DocList.pas
index c96e8f3..477cb37 100644
--- a/DocList.pas
+++ b/DocList.pas
@@ -16,6 +16,7 @@
Panel3: TPanel;
Edit1: TEdit;
IndexLB: TLabel;
+ CheckBox1: TCheckBox;
procedure OkBtClick(Sender: TObject);
procedure CancelBtClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
@@ -111,7 +112,7 @@
procedure TDocListForm.OkBtClick(Sender: TObject);
begin
- if DocLV.Selected = nil then
+ if (DocLV.Selected = nil) and (not CheckBox1.Checked) then
begin
Showmessage(_Msg('�|������k�ɤ��'));
Exit;
--
Gitblit v1.8.0