feat: spec 定義

curtis

18小時前 10220027159dc90f19f7c62a7b84bb00c6453d4c

 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;