程式本身已經在一個ButtonA内執行，還沒有退出，怎樣才能偵測到一個ButtonB有Check事件的產生？ 例如: procedure TForm1.ButtonAClick(Sender: TObject); being for n:=0 to 10 do begin {do something} if ButtonB.Checked=True then // 這裡該怎樣做？ begin {Do somethings} end; end; end;

不會有這樣的結構。 幾點理由： 1. ButtonAClick 在執行時，基本上是處於沒有回應狀態。 因此既使點選CheckBox 也必須等到ButtonAClick 執行完畢才會處於Checked狀態。 2. 可在迴圈內加入 Application.ProcessMessages 雖然可以解決此問題。 但相對付出的是應用程式效能很差會有遲鈍的效果。並佔用了多數CPU效能。 不建議這樣做。太沒.... 3. 建議透過 Thread 或者 重新思考流程。先CheckBox -> ButtonA 參考。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

var
bChecked:Boolean;    procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i:=1;
  While i>0 do
  begin
    Application.ProcessMessages;
    if bChecked then
    begin
      Showmessage('checked');
      break;
    end;
  end;    end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  bChecked:=True;
end;

＠瞭解越多.懂得越少＠

wameng說得很對，其實我也沒有採用這樣的架構，我採用Thread，其實我想問的 關鍵是在Thread中我怎樣才能檢測到ButtonB有Check的動作，要求要比較及時地。多謝各位大大指教

>關鍵是在Thread中我怎樣才能檢測到ButtonB有Check的動作 方法有很多種。主要是看您的Thread.execute 寫法。 1. 可設定全域變數如：BtnBChecked : Boolean 。 在ButtonB有Check的動作，設定 BtnBChecked :=True; 這就無須考慮讀取物件必須Synchronize 的問題。 2. 或者利用 PostThreadMessage 的方式，傳達給Thread 知道。 主要還是看你的用途或流程或Thread定位於何種工作而定。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～