我想要寫一個井字遊戲，在根據KO和CHANCE36大大和同學的討論後，我寫成的進度如下，我想問的是如何在一個程序中執行9個BITBTN的動作，我試過CLICK，MOUSEDOWN都不行說，只要我按開始執行遊戲就有錯誤程式就停掉了，請幫我看一下到底是那邊錯誤了呢？謝謝唷 遊戲程序進度如下： >>Caption='O'

不好意思 小弟功力粗淺，但就您的程式上來說看不出問題點？能否請您大概說明問題訊息為何？或貼上程式呢？ 有錯，歡迎指正。

關於我發表的這一篇文章 我想我在重新說明一下好了 上面所PO的程式我與同學討論過 我知道錯誤一堆 但是我主要想問的事如何在一個程序中

Hi north,    不知是否有誤解你的意思，你應該是要指定那九個 SpeedButton 的 OnClick 事件為同一個 Porcedure !?    請參考以下連結 http://delphi.ktop.com.tw/topic.php?topic_id=48686

procedure TForm1.Button3Click(Sender: TObject);
var
  I : Integer;
begin
  for i := 0 to self.ControlCount - 1 do
    begin
      if Self.Controls[i] is TSpeedButton then
        begin
          TSpeedButton(Self.Controls[i]).OnClick := SpeedButton1Click;
        end;
    end;
end;    procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  ShowMessage(TSpeedButton(Sender).Name);
end

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

HiHi Fishman 謝謝唷 現在我按鈕可以做動了說