Q&A

  • 서로 다른 폼의 값의 반환
procedure TForm1.N70Click(Sender: TObject);

var

k : integer;

begin

case k of

1: begin



end;

2: begin



end;

3: begin



end;

==============

위의 폼1에서의 메뉴(N70)을 클릭하면 실행되는 case 문인데 만약에



N70Click 이 실행되면 폼3가 나타나고 버튼1,2,3 이 있다.



그런데 버튼1을 클릭하면( k := 1 ) 이라는 값을 폼1의 N70Click 에 반환하려면



어떻게 해야하나요?

1  COMMENTS
  • Profile
    사발우성 2001.12.15 02:46
    ^^ k를 전역변수로 선언 하셔야겠죠..

    그럼 즐프엽 ^^

    ddd wrote:

    > procedure TForm1.N70Click(Sender: TObject);

    > var

    > k : integer;

    > begin

    > case k of

    > 1: begin

    >

    > end;

    > 2: begin

    >

    > end;

    > 3: begin

    >

    > end;

    > ==============

    > 위의 폼1에서의 메뉴(N70)을 클릭하면 실행되는 case 문인데 만약에

    >

    > N70Click 이 실행되면 폼3가 나타나고 버튼1,2,3 이 있다.

    >

    > 그런데 버튼1을 클릭하면( k := 1 ) 이라는 값을 폼1의 N70Click 에 반환하려면

    >

    > 어떻게 해야하나요?