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 에 반환하려면
어떻게 해야하나요?
그럼 즐프엽 ^^
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 에 반환하려면
>
> 어떻게 해야하나요?