Q&A
- Modal폼 종료 문제
델초보 올립니다...
도움 주시면 감사하겠읍니다...
MDI폼을 메인폼으로 띄우고 Login폼을 모달폼으로 먼저 띄웠읍니다...
그런데 띄우는 데는 문제점이 없는데 종료할때 정상적으로 종료가 안되고 에러가 뜹니다
밑에 소스올립니다...도움주시면 감사하겠읍니다...
***밑에 소스는 메인폼에서 Modal폼을 띄운것입니다***
procedure Tkp1.FormCreate(Sender: TObject);
begin
kp0 := Tkp0.create(Application); //login 폼 동적생성
kp0.showmodal(); //모달폼으로...
if kp0.modalresult = mrOK then
begin
kp0.free;
kp0 := nil;
end
else if kp0.modalresult = mrcancel then
begin
kp0.free;
kp0 := nil;
kp1.close;
kp1.free;
end;
end;
***밑에 소스는 확인버튼을 누르면 메인폼을 띄우고 종료버튼을 누르면 프로그램을
종료하는 소스입니다
procedure Tkp0.Button2Click(Sender: TObject);
begin
modalresult := mrcancel;
end;
procedure Tkp0.Button1Click(Sender: TObject);
begin
Modalresult := mrOK;
end;
이상입니다 도움주시면 감사하겠읍니다
도움 주시면 감사하겠읍니다...
MDI폼을 메인폼으로 띄우고 Login폼을 모달폼으로 먼저 띄웠읍니다...
그런데 띄우는 데는 문제점이 없는데 종료할때 정상적으로 종료가 안되고 에러가 뜹니다
밑에 소스올립니다...도움주시면 감사하겠읍니다...
***밑에 소스는 메인폼에서 Modal폼을 띄운것입니다***
procedure Tkp1.FormCreate(Sender: TObject);
begin
kp0 := Tkp0.create(Application); //login 폼 동적생성
kp0.showmodal(); //모달폼으로...
if kp0.modalresult = mrOK then
begin
kp0.free;
kp0 := nil;
end
else if kp0.modalresult = mrcancel then
begin
kp0.free;
kp0 := nil;
kp1.close;
kp1.free;
end;
end;
***밑에 소스는 확인버튼을 누르면 메인폼을 띄우고 종료버튼을 누르면 프로그램을
종료하는 소스입니다
procedure Tkp0.Button2Click(Sender: TObject);
begin
modalresult := mrcancel;
end;
procedure Tkp0.Button1Click(Sender: TObject);
begin
Modalresult := mrOK;
end;
이상입니다 도움주시면 감사하겠읍니다
2
COMMENTS
-
-
남기석 wrote:
> 안녕하세요
> 청개구리 남기석입니다.
>
> FormCreate 이벤트에서는 자기 자신을 Close할 수 없습니다.
> 전역변수를 설정하셔서 FormActivate 이벤트에서 처리하셔야 합니다.
>
> var
> LoginOK : Boolean;
>
> implementation
>
> procedure Tkp1.FormCreate(Sender: TObject);
> begin
> ............
> ............
> if kp0.showmodal = mrOK then
> LoginOK := True
> else
> LoginOK := False;
> ............
> ............
> end;
>
> procedure Tkp1.FormActivate(Sender: TObject);
> begin
> if LoginOK = False then
> Close;
> end;
>
> 행복하세요...
>
> =============================================================================
>
> 김지명 wrote:
> > 델초보 올립니다...
> > 도움 주시면 감사하겠읍니다...
> > MDI폼을 메인폼으로 띄우고 Login폼을 모달폼으로 먼저 띄웠읍니다...
> > 그런데 띄우는 데는 문제점이 없는데 종료할때 정상적으로 종료가 안되고 에러가 뜹니다
> > 밑에 소스올립니다...도움주시면 감사하겠읍니다...
> >
> > ***밑에 소스는 메인폼에서 Modal폼을 띄운것입니다***
> >
> > procedure Tkp1.FormCreate(Sender: TObject);
> > begin
> > kp0 := Tkp0.create(Application); //login 폼 동적생성
> > kp0.showmodal(); //모달폼으로...
> > if kp0.modalresult = mrOK then
> > begin
> > kp0.free;
> > kp0 := nil;
> > end
> > else if kp0.modalresult = mrcancel then
> > begin
> > kp0.free;
> > kp0 := nil;
> > kp1.close;
> > kp1.free;
> > end;
> > end;
> >
> > ***밑에 소스는 확인버튼을 누르면 메인폼을 띄우고 종료버튼을 누르면 프로그램을
> > 종료하는 소스입니다
> >
> > procedure Tkp0.Button2Click(Sender: TObject);
> > begin
> > modalresult := mrcancel;
> > end;
> >
> > procedure Tkp0.Button1Click(Sender: TObject);
> > begin
> > Modalresult := mrOK;
> > end;
> >
> > 이상입니다 도움주시면 감사하겠읍니다
> >
(NOTICE) You must be logged in to comment on this post.
-
- 코끼리
- •
- 2000.10.24 03:37
- 1 COMMENTS
- /
- 0 LIKES
-
이광형•2000.10.24 04:01메모필드는 BLOB 영역에 저장 되기 때문에 [Memo] 라고 표기 됩니다. 실제로는 Memo 내용이 저장 되어 있습...
-
- won
- •
- 2000.10.24 02:55
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.10.24 22:38안녕하세여.., 타락임다..^^ 팁모아에. 스트링그리드의 입력받는 포맷을 정하는 방법이 있슴다.. 타...
-
- 궁그미
- 2000.10.24 02:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 장경임
- •
- 2000.10.24 02:14
- 1 COMMENTS
- /
- 0 LIKES
-
kokoo•2000.11.14 22:46sheets[2].select; 한후에 루틴을 돌리세요... 장경임 wrote: > source는 아래와 같습니다... > 근...
-
- 문형록
- 2000.10.24 02:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 최일용
- •
- 2000.10.24 01:22
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.10.24 22:43안녕하세여.. 타락임다..^^ 일반적인것은 팁모아를 검색해 보심 되구여.. 질문의 의도가, DLL에 있는...
-
문형록•2000.10.24 19:25최일용 wrote: > 안녕하세요........... > 다름이 아니고요...... > 제가 DLL(MDI child)폼으로 프로그...
-
- 이용
- •
- 2000.10.24 01:20
- 2 COMMENTS
- /
- 0 LIKES
-
이성훈•2000.10.24 02:20이용 wrote: > 오류 메세지: > Project Project1.exe raised exception class EOLeException with messag...
-
장임더•2000.10.24 03:55이성훈 wrote: > 이용 wrote: > > 오류 메세지: > > Project Project1.exe raised exception class EOLe...
-
- 김지명
- •
- 2000.10.24 01:13
- 2 COMMENTS
- /
- 0 LIKES
델초보 올립니다... 도움 주시면 감사하겠읍니다... MDI폼을 메인폼으로 띄우고 Login폼을 모달폼으로 먼저 띄웠읍니다... 그런데 띄우는 데는 문제점이 없는데 종료할때 정상적으로 종료가 안되고 에러가 뜹니다 밑에 소스올립니다...도...-
남기석•2000.10.24 08:07안녕하세요 청개구리 남기석입니다. FormCreate 이벤트에서는 자기 자신을 Close할 수 없습니다. 전역...
-
김지명•2000.10.25 01:31남기석 wrote: > 안녕하세요 > 청개구리 남기석입니다. > > FormCreate 이벤트에서는 자기 자신을 Clo...
-
- 초보자
- 2000.10.24 01:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 오윤석
- •
- 2000.10.24 00:45
- 3 COMMENTS
- /
- 0 LIKES
-
백정훈•2000.11.28 02:20오윤석 wrote: > 안녕하세요... > > 제가 B4로 레포트를 만들었는데요. 실행시에 처음 디자인한 용지...
-
오윤석•2000.11.28 06:03정답을 알려 주셔서 감사합니다. 게시판에 글을 올리고 얼마간 더 헤매다 제 스스로 답을 찾기는 했지만 ...
-
송수정•2000.10.24 03:20오윤석 wrote: > 안녕하세요... > > 제가 B4로 레포트를 만들었는데요. 실행시에 처음 디자인한 용지...
-
- 용이
- •
- 2000.10.24 00:14
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.10.24 11:07용이 wrote: > 안녕하셔여 항상 많은 도움만 받고 있는 용이에여 > 다름이 아니라 > frmlogin 폼에서 ...
-
이경문•2000.10.24 04:58처음 메인폼을 띄우기 전에 로그인을 띄우시는 목적을 가지신 것 같네요. 일단 frmLogin.Free를 수행하면 ...
-
- 델초보
- 2000.10.24 01:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금맨
- •
- 2000.10.24 00:05
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.10.24 01:25궁금맨 wrote: > 안녕하세요여...........저는 active-x인증을 받을려고 하는데.. > 우리나라에서 인증을...
-
궁금맨•2000.10.24 03:21정말정말 감사드립니다....... 왜 이렇게 사이트 찾기가 어려운지.......-_-;;; 다시한번 감사드립니다.
-
- 청희
- 2000.10.23 23:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김상범
- •
- 2000.10.23 23:29
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.24 00:08안녕하세요..저같은 경우는 이렇게 했는데.. 셀이 이동될때마다..클릭이벤트가 발생하더라구요.. 그래서 ...
-
- 델초보
- 2000.10.23 23:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 임지희
- •
- 2000.10.23 23:04
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.10.23 23:11임지희님 님이 원하시는 기능은 델파이 예제에 들어 있습니다. 첫번째 질문하신 거는요 예제 페이지에서...
-
- 김성겸
- 2000.10.23 22:56
- 0 COMMENTS
- /
- 0 LIKES
-
- PingLee
- 2000.10.23 22:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 이랑하
- 2000.10.23 21:51
- 0 COMMENTS
- /
- 0 LIKES
청개구리 남기석입니다.
FormCreate 이벤트에서는 자기 자신을 Close할 수 없습니다.
전역변수를 설정하셔서 FormActivate 이벤트에서 처리하셔야 합니다.
var
LoginOK : Boolean;
implementation
procedure Tkp1.FormCreate(Sender: TObject);
begin
............
............
if kp0.showmodal = mrOK then
LoginOK := True
else
LoginOK := False;
............
............
end;
procedure Tkp1.FormActivate(Sender: TObject);
begin
if LoginOK = False then
Close;
end;
행복하세요...
=============================================================================
김지명 wrote:
> 델초보 올립니다...
> 도움 주시면 감사하겠읍니다...
> MDI폼을 메인폼으로 띄우고 Login폼을 모달폼으로 먼저 띄웠읍니다...
> 그런데 띄우는 데는 문제점이 없는데 종료할때 정상적으로 종료가 안되고 에러가 뜹니다
> 밑에 소스올립니다...도움주시면 감사하겠읍니다...
>
> ***밑에 소스는 메인폼에서 Modal폼을 띄운것입니다***
>
> procedure Tkp1.FormCreate(Sender: TObject);
> begin
> kp0 := Tkp0.create(Application); //login 폼 동적생성
> kp0.showmodal(); //모달폼으로...
> if kp0.modalresult = mrOK then
> begin
> kp0.free;
> kp0 := nil;
> end
> else if kp0.modalresult = mrcancel then
> begin
> kp0.free;
> kp0 := nil;
> kp1.close;
> kp1.free;
> end;
> end;
>
> ***밑에 소스는 확인버튼을 누르면 메인폼을 띄우고 종료버튼을 누르면 프로그램을
> 종료하는 소스입니다
>
> procedure Tkp0.Button2Click(Sender: TObject);
> begin
> modalresult := mrcancel;
> end;
>
> procedure Tkp0.Button1Click(Sender: TObject);
> begin
> Modalresult := mrOK;
> end;
>
> 이상입니다 도움주시면 감사하겠읍니다
>