사발우성 wrote:

>

>

> 모달폼에서 메인폼 버튼의 클릭이벤트가 발생했는지 알 수 있나엽...???

>

> 예임당..

>

> 그러니까..

>

> 모달폼에서임당.

>

> if form1.button1.click:=true 이런식으로 사용 할 수 있나엽 암나 갈켜줘엽.

>

> plz 제발.... .ㅠ.ㅠ





다소 무식한 방법임니다만

버튼이 클릭 했을때 전역변수를 하나 만들어서 그 변수에다가 예를 들면 'Y'값을 넣어 보세여

그 다음 그 변수의 값을 체크해보면 알수 있지 않을까여



private

{ Private declarations }

public

{ Public declarations }

end;



var

frm1: frm1;

gloval_flag : string;

implementation

{$R *.DFM}





procedure form1.button1.click(sender : object)

begin

gloval_flag := 'Y'

end;

사발우성 wrote:

>



사발우성 님 오래간만입니다. 헤헤~!

그런데 내가 질문한 '사발우성'의 뜻은 아직 대답이 없군요! 헤헤



>

> 모달폼에서 메인폼 버튼의 클릭이벤트가 발생했는지 알 수 있나엽...???

>

> 예임당..

>

> 그러니까..

>

> 모달폼에서임당.

>

> if form1.button1.click:=true 이런식으로 사용 할 수 있나엽 암나 갈켜줘엽.





음냐 도대체 무신뜻인지 헤헤?

대강 나의 짐작되로 이야기를 한다면...

모달폼이란것이(form2.showmodal;)일땐데.... 이렇게 하면 메인폼을 쓰지 못합니다.

그런데 모달폼이라고 한다면 어떻게 메인폼에서 버튼을 눌룰수 있겠습니까?

헤헤 만약 그게 아니라면(form2.show)라면... 메인폼에서 충분히 가릴수 있는뎁쇼

그러니깐 예를 들어 버튼1은 폼을 생성하구... 버튼2는 폼의 캡션을 바꾸는 거라 함은



procedure TForm1.Button1Click(Sender: TObject);

begin

form2.show;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

form2.caption := '메인폼에서 버튼 2를 눌렀군 쩝';

end;



end.



이런식으로 해도 충분히 새로 생긴 폼에 효과를 줄수 있는뎁쇼...헤헤...

그러니끼니 showmodal과 show의 차이점을 아시는 것이 헤헤..





또 만약 질문이 눌렀었었나 눌렀던 적이 없었나를 알려고 하는 것이였다면 다음과 같이..





메인폼에서..

private

{ Private declarations }

public

checking: Boolean; // 눌렀었나 확인을 하기 위한 변수..

{ Public declarations } // 다른 유닛에서 사용할수 있게 여기다가..

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

checking := true;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

if checking then checking := false;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

form2.showmodal;

end;



end.



그리고 모달폼에다가는....

procedure TForm2.Button1Click(Sender: TObject);

begin

if Form1.checking = false then

caption := '메인폼의 버튼1을 눌렀던 적이 있군'

else

caption := '메인폼의 버튼1을 눌린적이 없군';

end;



이런식으로도 하면 될텐데요.. 쩝





지금 까지 두개의 경우의 답변을 했는데 질문의 요지가 이것이 아닌가요? 헤헤

그러니깐 답변보다도 질문이 이해하기 쉽게 해주셔야지요 헤헤~!



질문의 요지가 혹시 딴거라면 또 딴거라도 (사발우성님을 위해서라면 헤헤)





>

> plz 제발.... .ㅠ.ㅠ



또 뵈유~! 행복하셔요 조규춘올림.