안녕하세요

청개구리 남기석( http://www.delphitravel.com )입니다.



ModalResult속성을 mrok로 하셨다면...

버튼 클릭시에 OnClick 이벤트 안에 있는 모든 처리를 끝내면...

폼이 닫힙니다.



아래 님께서 답해주신 것 같이...

mrNone으로 바꾸면.... 폼이 닫히지 않는데요...



꼭 속성을 mrOK 로 하셔야 한다면...

OnClick 이벤트 안에



ModalResult := mrNone; 를 직접 넣어 주세요...



이렇게요

if 조건이 맞으면 then

ModalResult := mrOK

else

ModalResult := mrNone;



행복하세요...



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

호야 wrote:

> 모달폼있는 버튼의 ModalResult속성을mrok로 했습니다.

> 저는 이번을 눌러도 죽지않게하고싶은데 버튼을 누르면

> 자동으로 죽더라구요. 헬프를 보니까

> ModalResult속성을 이용하면 자동으로 죽게되있던데,

> 안죽일수는 없나요?

> 모달폼에서 ok번튼을 누르면 모달폼을 띄운 메인폼에 이벤트가

> 발생하도록 할려고 하거든요.(모달폼을 안죽이고)

> 고수님들의 충고를 기다리겠습니다.

ModalResult를 mrNone으로 바꿔서 했더니

실행이 않되네요.

모달폼을 띄운 쪽에서 If문으로 ModalResult값을

검사해서

if imodal=mrNone Then

Else If imodal=mrYes Then

Else If imodla=mrAll Then

이런식으로 처리하는데

mrNone은 처리가 않되네요.



남기석 wrote:

> 안녕하세요

> 청개구리 남기석( http://www.delphitravel.com )입니다.

>

> ModalResult속성을 mrok로 하셨다면...

> 버튼 클릭시에 OnClick 이벤트 안에 있는 모든 처리를 끝내면...

> 폼이 닫힙니다.

>

> 아래 님께서 답해주신 것 같이...

> mrNone으로 바꾸면.... 폼이 닫히지 않는데요...

>

> 꼭 속성을 mrOK 로 하셔야 한다면...

> OnClick 이벤트 안에

>

> ModalResult := mrNone; 를 직접 넣어 주세요...

>

> 이렇게요

> if 조건이 맞으면 then

> ModalResult := mrOK

> else

> ModalResult := mrNone;

>

> 행복하세요...

>

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

> 호야 wrote:

> > 모달폼있는 버튼의 ModalResult속성을mrok로 했습니다.

> > 저는 이번을 눌러도 죽지않게하고싶은데 버튼을 누르면

> > 자동으로 죽더라구요. 헬프를 보니까

> > ModalResult속성을 이용하면 자동으로 죽게되있던데,

> > 안죽일수는 없나요?

> > 모달폼에서 ok번튼을 누르면 모달폼을 띄운 메인폼에 이벤트가

> > 발생하도록 할려고 하거든요.(모달폼을 안죽이고)

> > 고수님들의 충고를 기다리겠습니다.

안녕하세요

청개구리 남기석( http://www.delphitravel.com )입니다.



당연합니다...

mrNone 으로 하면...

모달 폼을 띄운 폼으로는 아무 값도 넘어 오지 않으니까요....



이렇게 하셔야되요...



1. 모달폼을 띄운 메인폼에서.....



procedure TFomMain.btnShowOnClick( Sender : TObject );

var

wResult : Word;

begin

// FormModal 생성

try

wResult := FormMadal.ShowModal;

if wResult = mrOK then

begin

// 제대루 처리 됐을 때 처리..

end else

begin

// 처리가 취소 됐을 때 처리... mrCancel이 넘어 왔을 때...

end;

finally

FormModal.Free;

end;

end;



2. 모달폼에서...



procedure TFomMain.btnOKOnClick( Sender : TObject );

begin

if 제대로 처리 되었느지... then

ModalResult := mrOK

else

ModalResult := mrNone;

end;



procedure TFomMain.btnCancelOnClick( Sender : TObject );

begin

ModalResult := mrCancel;

end;



행복하세요...



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

호야 wrote:

> ModalResult를 mrNone으로 바꿔서 했더니

> 실행이 않되네요.

> 모달폼을 띄운 쪽에서 If문으로 ModalResult값을

> 검사해서

> if imodal=mrNone Then

> Else If imodal=mrYes Then

> Else If imodla=mrAll Then

> 이런식으로 처리하는데

> mrNone은 처리가 않되네요.

>

> 남기석 wrote:

> > 안녕하세요

> > 청개구리 남기석( http://www.delphitravel.com )입니다.

> >

> > ModalResult속성을 mrok로 하셨다면...

> > 버튼 클릭시에 OnClick 이벤트 안에 있는 모든 처리를 끝내면...

> > 폼이 닫힙니다.

> >

> > 아래 님께서 답해주신 것 같이...

> > mrNone으로 바꾸면.... 폼이 닫히지 않는데요...

> >

> > 꼭 속성을 mrOK 로 하셔야 한다면...

> > OnClick 이벤트 안에

> >

> > ModalResult := mrNone; 를 직접 넣어 주세요...

> >

> > 이렇게요

> > if 조건이 맞으면 then

> > ModalResult := mrOK

> > else

> > ModalResult := mrNone;

> >

> > 행복하세요...

> >

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

> > 호야 wrote:

> > > 모달폼있는 버튼의 ModalResult속성을mrok로 했습니다.

> > > 저는 이번을 눌러도 죽지않게하고싶은데 버튼을 누르면

> > > 자동으로 죽더라구요. 헬프를 보니까

> > > ModalResult속성을 이용하면 자동으로 죽게되있던데,

> > > 안죽일수는 없나요?

> > > 모달폼에서 ok번튼을 누르면 모달폼을 띄운 메인폼에 이벤트가

> > > 발생하도록 할려고 하거든요.(모달폼을 안죽이고)

> > > 고수님들의 충고를 기다리겠습니다.

호야 wrote:

> 모달폼있는 버튼의 ModalResult속성을mrok로 했습니다.

> 저는 이번을 눌러도 죽지않게하고싶은데 버튼을 누르면

> 자동으로 죽더라구요. 헬프를 보니까

> ModalResult속성을 이용하면 자동으로 죽게되있던데,

> 안죽일수는 없나요?

> 모달폼에서 ok번튼을 누르면 모달폼을 띄운 메인폼에 이벤트가

> 발생하도록 할려고 하거든요.(모달폼을 안죽이고)

> 고수님들의 충고를 기다리겠습니다.



안녕하세요.

지금 직장이 아니라서 확인은 못하겠습니다만,

ModalResult 속성값에 mrNone이 있을 겁니다.

mrNone인 버튼은 눌러도 폼이 Close되지 않습니다.

Help를 찾아보세요...

수고하십시오.