キャンセルボタンを検索実行時だけ使えるようにした。

diff --git a/Search.dfm b/Search.dfm
index 4417057..07b3a53 100644 (file)
--- a/Search.dfm
+++ b/Search.dfm
@@ -77,6 +77,7 @@ object SearchDialog: TSearchDialog
     Anchors = [akRight, akBottom]
     Cancel = True
     Caption = #12461#12515#12531#12475#12523
+    Enabled = False
     ModalResult = 2
     TabOrder = 5
     OnClick = CancelBottonClick

diff --git a/Search.pas b/Search.pas
index c26b1e0..f1152aa 100644 (file)
--- a/Search.pas
+++ b/Search.pas
@@ -230,6 +230,7 @@ begin
        AllSelectButton.Enabled := False;
        AllReleaseButton.Enabled := False;
        OkBotton.Enabled := False;
+    CancelBotton.Enabled := true;
        FCancel := false;
        CategoryListView.Enabled := False;
 
@@ -338,6 +339,7 @@ begin
                AllReleaseButton.Enabled := True;
                OkBotton.Enabled := True;
                CategoryListView.Enabled := True;
+        CancelBotton.Enabled := false;
     end;
 end;