請問 我想做一個類似按鈕的動作 用圖片來做切換 ex image1, picture1 , picture2 當我 mouseclick image1 時 delay 1 秒 picture1 -> picture2 delay 1秒 picture2 -> picture1 這樣的動作要如何做 謝謝

您好!    請在Form中加入兩個TTimer元件(System元件頁), 作為定時執行圖片轉換的之用, 程式碼与說明如下:

在From的OnCreate事件中的程式碼
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('D:\Picture1.bmp');
  //先指定Image1的圖片, 在From.Create的時候顯示出來
  Image1.Stretch := True;//設定圖片的顯示方式是填滿Image1
  Timer1.Interval := 1000;//設定Timer1的触發間隔時間為1秒鐘
  Timer1.Enabled := False;//設定Timer1物件無效, 亦不触發OnTimer
  Timer2.Interval := 1000;//對象為Timer2, 說明同Timer1
  Timer2.Enabled := False;//對象為Timer2, 說明同Timer1
end;    在Timer1的OnTimer事件中的程式碼
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Picture := nil;//先將圖片設為nil, 亦沒有圖片
  Image1.Picture.LoadFromFile('D:\Picture2.bmp');讀取新圖片
  Timer2.Enabled := True;//設定Timer2物件有效, 亦触發Timer2的OnTimer
  Timer1.Enabled := False;//設定Timer1物件無效, 亦不触發OnTimer
end;    在Timer2的OnTimer事件中的程式碼
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Image1.Picture := nil;//先將圖片設為nil, 亦沒有圖片
  Image1.Picture.LoadFromFile('D:\Picture1.bmp'););讀取新圖片
  Timer1.Enabled := True;//設定Timer1物件有效, 亦触發Timer1的OnTimer
  Timer2.Enabled := False;//設定Timer2物件無效, 亦不触發OnTimer
end;    在Image1的OnClick事件中的程式碼
procedure TForm1.Image1Click(Sender: TObject);
begin
  if (Timer1.Enabled = False) and (Timer2.Enabled = False) then
  //如果Timer1和Timer2皆為無效時
    begin
      Timer1.Enabled := True;//設定Timer1物件有效, 亦触發Timer1的OnTimer
    end
  else
    begin
      Timer1.Enabled := False;
      Timer2.Enabled := False;
      //否則(即有一個Timer有效), 設定Timer1物件有效, 亦触發Timer1的OnTimer
    end;
end;

參考看看! ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟