ver 2,0,1,73

Hong

2020-08-07 02b9270a4e8ce1e55e97a33663c71e49942ac1be

 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;