想請問一下，如何讓Button事件在滑鼠按到Button元件時就執行 而不是等到滑鼠鍵放開後才執行

您好！ 請您把程式寫在button物件OnMouseDown事件裡面！

void __fastcall TForm1::Button1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  ShowMessage("oK");
}

發表人 - cashyy 於 2005/08/29 01:09:19

謝謝您的解答 那想在請問一下 如果說按下按鈕後到放開按鈕這段時間都要讓該事件進行 又是該如何執行呢？

您好！ 您是說，按下button時，要一直重覆button裡面的程式，直到放開嗎？ 小弟有個想法，就是在button裡面寫個迴圈，把您的程式寫在迴圈裡面，當然迴圈的判斷用true或false就可以了！ 寫一個小"飯粒"給您：

#include 
#pragma hdrstop    #include "Unit1.h"
int i;
bool btf;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  btf = true;
  while(btf)
  {
    i  ;
    Label1->Caption = i;
    Application->ProcessMessages();
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  btf = false;
}

發表人 - cashyy 於 2005/08/29 02:00:53

程式會整個當在那邊耶

您好！ 您是用我上面的"飯粒"嗎？ 上面的飯粒我有試過丫！但沒有您說的當掉丫！ 您在迴圈內有加入Application->ProcessMessages(); 如果沒有，程式會成無窮迴圈！