コントロールのキャプションを見つけて状態を変更します。

Question

フォームがビジー状態またはアイドル状態であることを示す有効/無効コントロール付きのフォームがあります。 いくつかのプロセスを中止するために無効になっていたときに、1つのコントロール（ボタンなどが可能でした）だけを有効にする必要があります。ボタンのキャプションを「ABORT」に変更します。

ボタンAをクリックすると、ボタンAのキャプションが「ABORT」に変更されます。他のすべてのコントロールは無効になりますが、キャプション 'ABORT'のボタンが有効になっています。

procedure F1.FormBusy (sender); 
var 
    a: Integer; 
begin 
    for a := 0 to TabSheet1.ControlCount - 1 do 
    begin 
    TabSheet1.Controls[a].Enabled := False; 
    (* if TabSheet1.Controls[a] caption := 'ABORT' then 
     TabSheet1.Controls[a].Enabled := True 
     < how to do this ? *) 
    end; 
end; 

使用例：

procedure F1.LB1Click(sender: TObject); 
begin 
    FormBusy(sender); 
    try 
    // do something 
    finally 
    FormIdle(sender); 
    end; 
end; 

Answer 1

よりもむしろCaptionプロパティによってボタンを見つけようと、なぜ配列から直接アクセスできませんか？

for a := 0 to TabSheet1.ControlCount - 1 do 
begin 
    TabSheet1.Controls[a].Enabled := TabSheet1.Controls[a] = Button1; 
end; 

各TControlは、有効になるButton1を除いて無効になります。

Answer 2

あなたは忙しいのパラメータを割り当てるために別の方法を定義することができます。

procedure F1.MAJIHM(const isBusy : Boolean); 
var a: Integer; 
begin 
    for a := 0 to TabSheet1.ControlCount - 1 do 
    begin 
    TabSheet1.Controls[a].Enabled := isBusy; 
    end; 
    btnABORT.enabled := not isBusy; 
end; 

procedure F1.FormBusy (sender); 
begin 
    MAJIHM(True); 
end; 

procedure F1.FormIdle (sender); 
begin 
    MAJIHM(False); 
end; 

Answer 3

あなたが言った：

私はAボタンをクリックして、私は 'ABORT' に、ボタンAのキャプションを変更します。すべて 他のコントロールは無効になりますが、キャプション付きのボタンが必要です 'ABORT'は引き続き有効です。

そして、あなたの使用例から、あなたがsenderパラメータとしてそれを参照することができF1.FormBusy()にそのボタンを渡すことは明らかである：あなたは、単にすべてコントロールを有効FormIdle()機能で

procedure F1.FormBusy(sender: TObject); 
var 
    a: Integer; 
begin 
    for a := 0 to TabSheet1.ControlCount - 1 do 
    TabSheet1.Controls[a].Enabled := TabSheet1.Controls[a] = sender; 
end; 

。