From 10220027159dc90f19f7c62a7b84bb00c6453d4c Mon Sep 17 00:00:00 2001
From: curtis <curtis@i-mps.com>
Date: 星期一, 30 三月 2026 09:27:16 +0800
Subject: [PATCH] feat: spec 定義
---
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