루프로 돌릴 필요는 없겠는걸요?



간단히 하실려면 전역변수를 세개 선언하시구.....



var

BOne,BTwo,BThree : integer;





OnClick Event에 각각 코딩합니다.



button1.caption := '클릭수 : '+inttostr(BOne+1);

.

.

.

.



FormShow Event에 초기화 코딩은 하셔야겠죠?



BOne := 0; BTwo := 0; BThree := 0;





조금 복잡하게 코딩하실려면.....

var

s : string;

begin

s := TButton(Sender AS TButton).caption;

s := Copy(s,1,9)+ inttostr(strtoint(Copy(s,10,length(s)-9))+1);

TButton(Sender AS TButton).caption := s;

end;



즐프하세여~ ^-^





궁금걸 wrote:

> 이런데가 있었네요

> 델파이 초보잔데요..

> 클릭수를 구하는걸 알고싶어서요..

> 간단하게나마..버튼 3개를 만들어놓고요

>

> 버튼1 클릭수:x

> 버튼2 클릭수:x

> 버튼3 클릭수:x

>

> 버튼을 누를때마다 클릭수가 1씩 +되는걸 하고싶은데요..

> 루프를 어떻게 돌려야하는지...

> 프로그램이 종료될때까지 돌리고싶은데..

> 가르쳐주세요...

감사함당 감사함당..

정말 감사함당...

*^^*