잘하자 님이 쓰신 글 :
: 마우스 클릭 시 카운트를 지속적으로 증가시키고
: 떼면 초기화 하고 싶은데 모르겠네요. 도와 주세요~~~~~~~~~~

TButton을 예로 들면, OnMouseDown, OnMouseUp 이 있습니다.

각각 마우스를 눌렀을시 발생하는 이벤트와 떼었을시 발생하는 이벤트죠.

이 둘을 이용하면 될듯 싶습니다.

1. int 형 전역변수 Count를 추가
2. TTimer 하나 추가해서 Enabled 속성을 false 로 설정
3. TTimer OnTimer 이벤트에 아래와 같이 설정
4. TButton OnMouseUp, OnMouseDown 이벤트에 아래와 같이 설정

Interval 이 1000 이면 1초마다 Count가 증가하게 됩니다.

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	Count++;
	Button1->Caption=IntToStr(Count);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button,
		  TShiftState Shift, int X, int Y)
{
	Count=0;
	Timer1->Interval=1000;
	Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseUp(TObject *Sender, TMouseButton Button,
		  TShiftState Shift, int X, int Y)
{
	Timer1->Enabled=false;
}
//---------------------------------------------------------------------------