var

IsExitA, IsExitB: Boolean;



procedure TForm1.Button_AClick(Sender: TObject);

begin

IsExitA := False;

IsExitB := True;

while not IsExitA do

begin

Application.ProcessMessages;

// do something...

end;

end;



procedure TForm1.Button_BClick(Sender: TObject);

begin

IsExitA := True;

IsExitB := False;

while not IsExitB do

begin

Application.ProcessMessages;

// do something...

end;

end;





왕초보 wrote:

> 버튼 2개(button_A, button_B)를 만들고서

> 먼저 button_A를 클릭하였을 때 button_A에 대한 무한루프 함수나 프러시저를

> 수행하다가 button_B를 클릭하게 되면 button_A의 무한루프에서 탈출하여

> button_B에 대한 무한루프 함수나 프러시저를 호출하는 -서로 호출할 수 있는-

> 방법을 아시는 분께서 한 수 가르쳐 주시면 정말 감사하겠습니다.

.