반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~



For i:=1 to 5 do

begin

Statement A

----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

Statement B

end;



쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

saint09 께서 말씀하시기를...

> 안녕하세요.

> 다름이 아니오라. 폼을 두개 만들었습니다. 하나는 메인이고 또 다른 하나는 서브입니다. 메인폼에서 함수를 만들어 글로벌 변수 부분에 선언을 해 놓았습니다. 이함수를 서브 폼에서 사용하고 싶은데 방법을 모르겠네요. 글로벌 변수는 다른 폼에서 사용이 가능한데 함수는 에러가 나요. 자기 폼에서 사용하면 아무 이상이 없는데 다른 폼에서 사용하면 선언이 안되었다는 메세지가 뜸니다. 혹시 방법을 알고 계신 분은 꼭 좀 부탁드립니다.

> 그럼 즐거운 하루 되세요.



글로벌 변수를 선언한 unit 파일을



그 글로벌 변수를 사용할 곳 포함(?) 시키면 됩니다.



방법은 글로벌 변수를 사용할 파일을 선택해 놓고



파일메뉴의 Use Unit 메뉴를 실행해서 글로벌 변수를 가진 녀석을



선택하시면됩니다.



답변이 되었는지 모르겠네요... 그럼...

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



음냐...아래의 내용을 참고하세요...쩝

대충 비슷하긴 한데....

근데 이런 코드 어디 쓰이는 건지...요 알려 주세요 궁금.......^^;



procedure TForm1.Button2Click(Sender: TObject);

begin

btn_click := True;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

i,j : integer;



begin

j := 0;

for i := 0 to 5 do begin

try

inc(j);

showmessage('^^1');

finally

While not btn_click do

Application.ProcessMessages;

end;

showmessage('^^2');

btn_click := False;

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

btn_click := False;

end;

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



참고로 루프내에서는 프로세서를 독차지 하지 않도록...



Application.ProcessMessage 라는 구문을 넣어주어야 전체적으로 매끄러워 집니다.

하윤철 wrote:

> 반복 루틴중에서 버튼을 눌러야 다음번 실행을 계속하도록 하려면

> 어떻게 해야 하나여. 도스에선라면 쉽겠지만 윈도우 이벤트는 영~~

>

> For i:=1 to 5 do

> begin

> Statement A

> ----------- <== 이부분에서 같은 폼에 있는 버튼 클릭이벤트를

> ----------- 기다립니다.같은 폼이니 MessageBox는 안되겠지요.

> Statement B

> end;

>

> 쉬울것 같은데 착안이 쉽지 않습니다. 좋은 아이디어가 있으시면 알려주세요.

>



안녕하세요.



그런식으로 하시지 말고요. 음..예를 들면 전역적으로 몇번이나 버턴을 눌렀는가를 저장하는 변수를 만들어 해결하시는게 더 좋지 않을까요.