Q&A
- 소스 좀 봐주세요...간단해요...
<.dpr 화일.>
FmLogin := TFmLogin.Create(Application);
FmLogin.ShowModal; // ---> 로그인 화면
FmLogin.Free;
frmsplash:=Tfrmsplash.create(application);
frmsplash.show;
frmsplash.update;
Application.Initialize;
Application.Title := 'aaaa';
Application.HelpFile := '';
Application.CreateForm(TMAIN, MAIN);
Frmstart.Free;
Application.Run;
위와 같이 로그인화면-->splash화면--->메인화면 띄우는데...
로그인 화면에서 id와 passwd가 맞으면 메인을 띄우고 안 맞으면
로그인 화면이 그대로 있으면 되는데...잘 안되네요...
<로그인 화일.>
if 맞으면 then
fmlogin.close
else
begin
messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
edit1.setfocus;
end;
위에서 else인 경우에 메시지 다이얼로그는 뜨는데 뜬 후에 로그인 화면이
그대로 있고 포커스가 edit1로 가면 정상인데...
메시지 다이얼로그는 뜨는데 오케이를 누르면 로그인 화면이 죽고
메인이 떠버리네요...
이해가 안되네요...
FmLogin := TFmLogin.Create(Application);
FmLogin.ShowModal; // ---> 로그인 화면
FmLogin.Free;
frmsplash:=Tfrmsplash.create(application);
frmsplash.show;
frmsplash.update;
Application.Initialize;
Application.Title := 'aaaa';
Application.HelpFile := '';
Application.CreateForm(TMAIN, MAIN);
Frmstart.Free;
Application.Run;
위와 같이 로그인화면-->splash화면--->메인화면 띄우는데...
로그인 화면에서 id와 passwd가 맞으면 메인을 띄우고 안 맞으면
로그인 화면이 그대로 있으면 되는데...잘 안되네요...
<로그인 화일.>
if 맞으면 then
fmlogin.close
else
begin
messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
edit1.setfocus;
end;
위에서 else인 경우에 메시지 다이얼로그는 뜨는데 뜬 후에 로그인 화면이
그대로 있고 포커스가 edit1로 가면 정상인데...
메시지 다이얼로그는 뜨는데 오케이를 누르면 로그인 화면이 죽고
메인이 떠버리네요...
이해가 안되네요...
6
COMMENTS
-
-
답변 고마워요...
그건 해결 했는데요...
또 한가지 문제가 생겨서...
로그인 화면에서 '닫기'버튼을 누르면 종료되야 되는데...
전 이렇게 했는데...
procedure TFmlogin.닫기버튼Click(Sender: TObject);
begin
close;
application.free; //메인폼 안열리게 할려고...
end;
로그인 폼도 닫히고 메인폼도 안뜨는데 한가지 문제는...
윈도우즈 시스템 리소스에서 보면 리소스가 회복이 안되네요...
그러니까 계속해서 로그인 폼을 열고 닫기 버튼을 누르는 걸 반복하면
시스템 리소스가 점점 줄어드는 현상이...
아무래도 제생각에는 application.free라는 명령어를 잘못 쓴것 같은데...
이걸 안쓰면 근데 메인폼이 떠버리잖아요...
너무 초보적인 질문인가요?
좋은 주말 되세요...
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> 이해가 안되시겠지만 말씀하신대로 정상적으로 작동을 했네요... 예전에도 몇번 답변을
>
> 했지만 ShowModal에 관해서 이해가 약간 부족하시네요....
>
> 폼이 모들형태(ShowModal호출)로 실행될때 종료가 될 조건은 폼의 ModalResult속성에
>
> mrNone이 아닌값이 들어왔을때입니다. 폼의 캡션바에 있는 Close Box를 클릭해서 종료
>
> 하거나 시스템메뉴의 종료메뉴를 클릭하면 mrCancel값이 들어갑니다. 문제는 버튼인데
>
> 모들폼에서의 버튼은 대부분 버튼의 ModalResult속성에 mrNone이 아닌값을 넣어서
>
> 사용하죠... mrOk, mrYes, mrNO, mrCancel과 같은 값들을...
>
> 모들폼에서 버튼을 클릭했을때는 버튼의 ModalResult에 있는 값이 모들폼의 ModalResult
>
> 속성에 전달됩니다. 그러므로 버튼에 mrNone이 아닌값이 들어가 있다면 버튼을 누름과
>
> 동시에 모들폼이 종료가 됩니다. 그렇기 때문에 아래 코딩하신 것처럼
>
> messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> edit1.setfocus;
>
> Edit1으로 포커스를 보내고 그냥 종료가 되는 것입니다. 종료를 안시킬려면 버튼의
>
> ModalResult값을 mrNone으로 해주어야줘.... 아님 폼의 ModalResult값을 mrNone으로
>
> 해주시던가요...
>
> <로그인 화일.>
> // 아마도 이부분이 OK이나 확인 버튼을 눌렀을 때의 코딩이겠죠?
> // 아닌가?? 아니면 코딩이 틀려지는데... 쩝...
> if 맞으면 then
> TButton(Sender).ModalResult := mrOK
> else
> begin
> messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> edit1.setfocus;
> TButton(Sender).ModalResult := mrNone;
> end;
>
> 이렇게 하시면 될것입니다.
>
> ^^ 항상 즐코하세요.
>
> 델초보녀 wrote:
> > <.dpr 화일.>
> >
> > FmLogin := TFmLogin.Create(Application);
> > FmLogin.ShowModal; // ---> 로그인 화면
> > FmLogin.Free;
> >
> > frmsplash:=Tfrmsplash.create(application);
> > frmsplash.show;
> > frmsplash.update;
> >
> > Application.Initialize;
> > Application.Title := 'aaaa';
> > Application.HelpFile := '';
> > Application.CreateForm(TMAIN, MAIN);
> >
> > Frmstart.Free;
> > Application.Run;
> >
> > 위와 같이 로그인화면-->splash화면--->메인화면 띄우는데...
> > 로그인 화면에서 id와 passwd가 맞으면 메인을 띄우고 안 맞으면
> > 로그인 화면이 그대로 있으면 되는데...잘 안되네요...
> >
> > <로그인 화일.>
> >
> > if 맞으면 then
> > fmlogin.close
> > else
> > begin
> > messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> > edit1.setfocus;
> > end;
> >
> > 위에서 else인 경우에 메시지 다이얼로그는 뜨는데 뜬 후에 로그인 화면이
> > 그대로 있고 포커스가 edit1로 가면 정상인데...
> > 메시지 다이얼로그는 뜨는데 오케이를 누르면 로그인 화면이 죽고
> > 메인이 떠버리네요...
> >
> > 이해가 안되네요...
-
안녕하세요. 최용일입니다.
TFmLogin을 모들폼으로 쓰니까 그냥 닫기버튼의 ModalResult속성에 mrCancel값을 넣어
주고 OnClick이벤트는 아무것도 코딩 하지 마세요. 그럼 종료됩니다.
그리고 .dpr파일을 아래와 같이 고치시는 것이 좋겟네요...
<.dpr 화일.>
var
LoginState: Integer;
begin
FmLogin := TFmLogin.Create(Application);
if FmLogin.ShowModal = mrCancel then // 성공적으로 로긴이 되지 않았으면...
begin
FmLogin.Free; // 폼을 닫고
Exit; // 프로그램을 끝낸다...
end;
FmLogin.Free;
frmsplash:=Tfrmsplash.create(application);
frmsplash.show;
frmsplash.update;
Application.Initialize;
Application.Title := 'aaaa';
Application.HelpFile := '';
Application.CreateForm(TMAIN, MAIN);
Frmstart.Free;
Application.Run;
end;
델초보녀 wrote:
> 답변 고마워요...
>
> 그건 해결 했는데요...
> 또 한가지 문제가 생겨서...
>
> 로그인 화면에서 '닫기'버튼을 누르면 종료되야 되는데...
>
> 전 이렇게 했는데...
> procedure TFmlogin.닫기버튼Click(Sender: TObject);
> begin
> close;
> application.free; //메인폼 안열리게 할려고...
> end;
>
> 로그인 폼도 닫히고 메인폼도 안뜨는데 한가지 문제는...
> 윈도우즈 시스템 리소스에서 보면 리소스가 회복이 안되네요...
>
> 그러니까 계속해서 로그인 폼을 열고 닫기 버튼을 누르는 걸 반복하면
> 시스템 리소스가 점점 줄어드는 현상이...
>
> 아무래도 제생각에는 application.free라는 명령어를 잘못 쓴것 같은데...
> 이걸 안쓰면 근데 메인폼이 떠버리잖아요...
>
> 너무 초보적인 질문인가요?
>
> 좋은 주말 되세요...
>
>
> 최용일 wrote:
> > 안녕하세요. 최용일입니다.
> >
> > 이해가 안되시겠지만 말씀하신대로 정상적으로 작동을 했네요... 예전에도 몇번 답변을
> >
> > 했지만 ShowModal에 관해서 이해가 약간 부족하시네요....
> >
> > 폼이 모들형태(ShowModal호출)로 실행될때 종료가 될 조건은 폼의 ModalResult속성에
> >
> > mrNone이 아닌값이 들어왔을때입니다. 폼의 캡션바에 있는 Close Box를 클릭해서 종료
> >
> > 하거나 시스템메뉴의 종료메뉴를 클릭하면 mrCancel값이 들어갑니다. 문제는 버튼인데
> >
> > 모들폼에서의 버튼은 대부분 버튼의 ModalResult속성에 mrNone이 아닌값을 넣어서
> >
> > 사용하죠... mrOk, mrYes, mrNO, mrCancel과 같은 값들을...
> >
> > 모들폼에서 버튼을 클릭했을때는 버튼의 ModalResult에 있는 값이 모들폼의 ModalResult
> >
> > 속성에 전달됩니다. 그러므로 버튼에 mrNone이 아닌값이 들어가 있다면 버튼을 누름과
> >
> > 동시에 모들폼이 종료가 됩니다. 그렇기 때문에 아래 코딩하신 것처럼
> >
> > messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> > edit1.setfocus;
> >
> > Edit1으로 포커스를 보내고 그냥 종료가 되는 것입니다. 종료를 안시킬려면 버튼의
> >
> > ModalResult값을 mrNone으로 해주어야줘.... 아님 폼의 ModalResult값을 mrNone으로
> >
> > 해주시던가요...
> >
> > <로그인 화일.>
> > // 아마도 이부분이 OK이나 확인 버튼을 눌렀을 때의 코딩이겠죠?
> > // 아닌가?? 아니면 코딩이 틀려지는데... 쩝...
> > if 맞으면 then
> > TButton(Sender).ModalResult := mrOK
> > else
> > begin
> > messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> > edit1.setfocus;
> > TButton(Sender).ModalResult := mrNone;
> > end;
> >
> > 이렇게 하시면 될것입니다.
> >
> > ^^ 항상 즐코하세요.
> >
> > 델초보녀 wrote:
> > > <.dpr 화일.>
> > >
> > > FmLogin := TFmLogin.Create(Application);
> > > FmLogin.ShowModal; // ---> 로그인 화면
> > > FmLogin.Free;
> > >
> > > frmsplash:=Tfrmsplash.create(application);
> > > frmsplash.show;
> > > frmsplash.update;
> > >
> > > Application.Initialize;
> > > Application.Title := 'aaaa';
> > > Application.HelpFile := '';
> > > Application.CreateForm(TMAIN, MAIN);
> > >
> > > Frmstart.Free;
> > > Application.Run;
> > >
> > > 위와 같이 로그인화면-->splash화면--->메인화면 띄우는데...
> > > 로그인 화면에서 id와 passwd가 맞으면 메인을 띄우고 안 맞으면
> > > 로그인 화면이 그대로 있으면 되는데...잘 안되네요...
> > >
> > > <로그인 화일.>
> > >
> > > if 맞으면 then
> > > fmlogin.close
> > > else
> > > begin
> > > messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> > > edit1.setfocus;
> > > end;
> > >
> > > 위에서 else인 경우에 메시지 다이얼로그는 뜨는데 뜬 후에 로그인 화면이
> > > 그대로 있고 포커스가 edit1로 가면 정상인데...
> > > 메시지 다이얼로그는 뜨는데 오케이를 누르면 로그인 화면이 죽고
> > > 메인이 떠버리네요...
> > >
> > > 이해가 안되네요...
-
델초보녀 wrote:
> <.dpr 화일.>
>
> FmLogin := TFmLogin.Create(Application);
> FmLogin.ShowModal; // ---> 로그인 화면
> FmLogin.Free;
>
> frmsplash:=Tfrmsplash.create(application);
> frmsplash.show;
> frmsplash.update;
>
> Application.Initialize;
> Application.Title := 'aaaa';
> Application.HelpFile := '';
> Application.CreateForm(TMAIN, MAIN);
>
> Frmstart.Free;
> Application.Run;
>
> 위와 같이 로그인화면-->splash화면--->메인화면 띄우는데...
> 로그인 화면에서 id와 passwd가 맞으면 메인을 띄우고 안 맞으면
> 로그인 화면이 그대로 있으면 되는데...잘 안되네요...
>
> <로그인 화일.>
>
> if 맞으면 then
> fmlogin.close
> else
> begin
> messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> edit1.setfocus;
> end;
>
> 위에서 else인 경우에 메시지 다이얼로그는 뜨는데 뜬 후에 로그인 화면이
> 그대로 있고 포커스가 edit1로 가면 정상인데...
> 메시지 다이얼로그는 뜨는데 오케이를 누르면 로그인 화면이 죽고
> 메인이 떠버리네요...
>
> 이해가 안되네요...
음... if 문 뒤에 메인화면을 띄우는 부분이 있나보네요.
Edit1.SetFocus; 다음에 Exit; 로 프로시져를 빠져나오면 어떨런지요...
-
훈 wrote:
> 델초보녀 wrote:
> > <.dpr 화일.>
> >
> > FmLogin := TFmLogin.Create(Application);
> > FmLogin.ShowModal; // ---> 로그인 화면
> > FmLogin.Free;
> >
> > frmsplash:=Tfrmsplash.create(application);
> > frmsplash.show;
> > frmsplash.update;
> >
> > Application.Initialize;
> > Application.Title := 'aaaa';
> > Application.HelpFile := '';
> > Application.CreateForm(TMAIN, MAIN);
> >
> > Frmstart.Free;
> > Application.Run;
> >
> > 위와 같이 로그인화면-->splash화면--->메인화면 띄우는데...
> > 로그인 화면에서 id와 passwd가 맞으면 메인을 띄우고 안 맞으면
> > 로그인 화면이 그대로 있으면 되는데...잘 안되네요...
> >
> > <로그인 화일.>
> >
> > if 맞으면 then
> > fmlogin.close
> > else
> > begin
> > messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> > edit1.setfocus;
> > end;
> >
> > 위에서 else인 경우에 메시지 다이얼로그는 뜨는데 뜬 후에 로그인 화면이
> > 그대로 있고 포커스가 edit1로 가면 정상인데...
> > 메시지 다이얼로그는 뜨는데 오케이를 누르면 로그인 화면이 죽고
> > 메인이 떠버리네요...
> >
> > 이해가 안되네요...
>
> 음... if 문 뒤에 메인화면을 띄우는 부분이 있나보네요.
> Edit1.SetFocus; 다음에 Exit; 로 프로시져를 빠져나오면 어떨런지요...
messagedlg에서 ok를 하면 exit를 했는데도 메인화면이 떠버리네요..
도저히 이해가 안돼요...
if 문 뒤에는 위에 소스 그대로 메인화면을 띄우는 부분은 없습니다...
-
음 웬만하면 DPR파일은 건드리지 마시고 로그인 같은건 메인폼에 OnShow 이벤트에 넣으시죠..
procedure TForm1.FormShow(Sender: TObject);
begin
if Form2.showmodal = mrCancel then
begin
Form1.Left := 10000;
Application.Terminate;
end
end;
이렇게하면 깨끗하게 종료됩니다..그럼..
(NOTICE) You must be logged in to comment on this post.
-
- river
- 2000.07.08 20:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤미영
- •
- 2000.07.08 20:31
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.07.08 21:15안녕하세여..타락임다...^^ 이건 당근 에러져.. 윤미영 wrote: > 폼1의 memo 값을 폼2의 memo에 넣...
-
무명•2000.07.08 21:11윤미영 wrote: > 폼1의 memo 값을 폼2의 memo에 넣어주려고 합니다. > 특별히 폼 memo들의 값들을 배열로...
-
- 호야
- •
- 2000.07.08 20:29
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.07.08 21:00안녕하세여..타락임다..ㅠㅠ 오늘은 휴일인데 회사에 나왔음다...ㅠㅠ 올 저녁도 저녁 11시까지 풀로...
-
- 원영준
- •
- 2000.07.08 20:25
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.08 23:55안녕하세요. 최용일입니다. 아래와 같이 해보세요. 리스트박스에 파일리스트를 넣는 예제입니다. var...
-
- 왕초보
- 2000.07.08 20:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보 델코
- •
- 2000.07.08 19:58
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.09 00:07이런 질문이 젤 싫어요. 누군 할일이 없나... 멜로 보내달라니... 질문을 했으면 직접 찾아와서 봐야지 ...
-
초보 델코•2000.07.10 20:21T.T 흑..너무하시네요... 저는 질문을 그리 하지않는 편이고 질문을 해도 답편을 한번도 보지 못했습니다....
-
최용일•2000.07.11 01:08안녕하세요. 최용일입니다. 그건 이미 그 패키지가 인스톨되어 있기 때문입니다. 그럴땐 그냥 컴파일만 ...
-
- kiwi
- •
- 2000.07.08 19:41
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.08 23:09안녕하세요. 최용일입니다. 푸하하하~ 죄송합니다. 먼저 웃어서... 초보분이신것같은데 그럴수도 있죠.....
-
kiwi•2000.07.09 00:00죄송합니다.. 제설명이 좀 부족했네여 쿠쿠 -초보인건 맞아여^^* type Struc_Search = Record ...
-
최용일•2000.07.09 01:51안녕하세요. 최용일입니다. 질문을 보니 C에서
-
최용일•2000.07.09 00:30안녕하세요. 최용일입니다. 그냥 Copy함수를 쓰셔도 되겠네요... ls_str := '0쿠쿠쿠 쿠쿠 ...
-
kiwi•2000.07.10 18:09감사합니다.. 행복하세요... ^_^
-
- 정동문
- 2000.07.08 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2000.07.08 23:16안녕하세요. 최용일입니다. 질문이 좀 명확하지가 않은것 같네요... 리소스DLL을 어떻게 만드는가를 질...
-
-
- 문홍철
- •
- 2000.07.08 19:04
- 3 COMMENTS
- /
- 0 LIKES
-
전대협•2000.07.08 19:46문홍철 wrote: > > 무식하게 윈도우를 밀어버렸거든요. > > 그러니까 asf는 되는데 asx화일은 안되네요 ...
-
문홍철•2000.07.08 20:18헐 ~.*! 혹시 플러그인 문제가 아닌가 싶네요..! 플러그인은 저도 잼뱅인데.. 제가 야그한 방법은 적...
-
전대협•2000.07.08 20:54문홍철 wrote: > 헐 ~.*! > 혹시 플러그인 문제가 아닌가 싶네요..! > 플러그인은 저도 잼뱅인데.. > ...
-
- 궁금타
- 2000.07.08 18:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보녀
- •
- 2000.07.08 18:21
- 6 COMMENTS
- /
- 0 LIKES
FmLogin := TFmLogin.Create(Application); FmLogin.ShowModal; // ---> 로그인 화면 FmLogin.Free; frmsplash:=Tfrmsplash.create(application); frmsplash.show; frmsplash.update; Application.Initialize; Application.Title := 'aaaa...-
최용일•2000.07.08 23:38안녕하세요. 최용일입니다. 이해가 안되시겠지만 말씀하신대로 정상적으로 작동을 했네요... 예전에도 ...
-
델초보녀•2000.07.09 00:14답변 고마워요... 그건 해결 했는데요... 또 한가지 문제가 생겨서... 로그인 화면에서 '닫기'버튼...
-
최용일•2000.07.09 00:38안녕하세요. 최용일입니다. TFmLogin을 모들폼으로 쓰니까 그냥 닫기버튼의 ModalResult속성에 mrCancel...
-
훈•2000.07.08 19:10델초보녀 wrote: > > > FmLogin := TFmLogin.Create(Application); > FmLogin.ShowModal; // ---...
-
델초보녀•2000.07.08 19:57훈 wrote: > 델초보녀 wrote: > > > > > > FmLogin := TFmLogin.Create(Application); > > FmLo...
-
밥벌레•2000.07.14 16:28음 웬만하면 DPR파일은 건드리지 마시고 로그인 같은건 메인폼에 OnShow 이벤트에 넣으시죠.. procedure...
-
- castle road
- •
- 2000.07.08 13:11
- 1 COMMENTS
- /
- 0 LIKES
-
성호종•2000.07.10 23:23castle road wrote: 정확한건 봐야 알겠지만.... index가 읽기전용이라는 말은 정상적인 DB schema에서는...
-
- DOL
- •
- 2000.07.08 11:39
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.08 15:23DOL wrote: > 프로젝트 파일을 컴파일하면 실행파일이 생기잖어요? > > 그 파일을 윈도우 탐색기에서 ...
-
- DOL
- •
- 2000.07.08 09:22
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.08 15:23DOL wrote: > ReadDateTime을 Help에서 보면 > 다음과 같이 나오는데요.. > > Retrieves a date-time...
-
- 이승리
- •
- 2000.07.08 08:07
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.08 15:23이승리 wrote: > 안녕하세요.. > > 무조건 바탕화면을 캡쳐해서, 자기가 원하는 부분만을 > > 폼 ...
-
- 홍기원
- •
- 2000.07.08 06:48
- 1 COMMENTS
- /
- 0 LIKES
-
아세만•2000.07.08 10:16홍기원 wrote: > > 클라이언트가 서버에 소켓으로 접속을 할때 버전을 체크하든가 하여서(아니면 다른것...
-
- tommy
- •
- 2000.07.08 06:39
- 4 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.07.09 08:22tommy wrote: > ------------------------------------------ > | | | ...
-
parkisu•2000.07.08 11:03tommy wrote: > ------------------------------------------ > | | | ...
-
tommy•2000.07.08 17:59parkisu wrote: tommy wrote: > ------------------------------------------ > | ...
-
김영해•2000.07.08 18:12tommy wrote: > parkisu wrote: > tommy wrote: > > ------------------------------------------ > ...
-
- 궁금한
- 2000.07.08 05:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정식
- •
- 2000.07.08 05:25
- 1 COMMENTS
- /
- 0 LIKES
-
무명•2000.07.08 05:42폼에 버튼하나 리스트박스하나 올리시고 다음처럼 테스트해보세요. uses printers; procedure TFor...
이해가 안되시겠지만 말씀하신대로 정상적으로 작동을 했네요... 예전에도 몇번 답변을
했지만 ShowModal에 관해서 이해가 약간 부족하시네요....
폼이 모들형태(ShowModal호출)로 실행될때 종료가 될 조건은 폼의 ModalResult속성에
mrNone이 아닌값이 들어왔을때입니다. 폼의 캡션바에 있는 Close Box를 클릭해서 종료
하거나 시스템메뉴의 종료메뉴를 클릭하면 mrCancel값이 들어갑니다. 문제는 버튼인데
모들폼에서의 버튼은 대부분 버튼의 ModalResult속성에 mrNone이 아닌값을 넣어서
사용하죠... mrOk, mrYes, mrNO, mrCancel과 같은 값들을...
모들폼에서 버튼을 클릭했을때는 버튼의 ModalResult에 있는 값이 모들폼의 ModalResult
속성에 전달됩니다. 그러므로 버튼에 mrNone이 아닌값이 들어가 있다면 버튼을 누름과
동시에 모들폼이 종료가 됩니다. 그렇기 때문에 아래 코딩하신 것처럼
messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
edit1.setfocus;
Edit1으로 포커스를 보내고 그냥 종료가 되는 것입니다. 종료를 안시킬려면 버튼의
ModalResult값을 mrNone으로 해주어야줘.... 아님 폼의 ModalResult값을 mrNone으로
해주시던가요...
<로그인 화일.>
// 아마도 이부분이 OK이나 확인 버튼을 눌렀을 때의 코딩이겠죠?
// 아닌가?? 아니면 코딩이 틀려지는데... 쩝...
if 맞으면 then
TButton(Sender).ModalResult := mrOK
else
begin
messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
edit1.setfocus;
TButton(Sender).ModalResult := mrNone;
end;
이렇게 하시면 될것입니다.
^^ 항상 즐코하세요.
델초보녀 wrote:
> <.dpr 화일.>
>
> FmLogin := TFmLogin.Create(Application);
> FmLogin.ShowModal; // ---> 로그인 화면
> FmLogin.Free;
>
> frmsplash:=Tfrmsplash.create(application);
> frmsplash.show;
> frmsplash.update;
>
> Application.Initialize;
> Application.Title := 'aaaa';
> Application.HelpFile := '';
> Application.CreateForm(TMAIN, MAIN);
>
> Frmstart.Free;
> Application.Run;
>
> 위와 같이 로그인화면-->splash화면--->메인화면 띄우는데...
> 로그인 화면에서 id와 passwd가 맞으면 메인을 띄우고 안 맞으면
> 로그인 화면이 그대로 있으면 되는데...잘 안되네요...
>
> <로그인 화일.>
>
> if 맞으면 then
> fmlogin.close
> else
> begin
> messagedlg('사용자 이름과 비밀번호를 다시 확인하세요');
> edit1.setfocus;
> end;
>
> 위에서 else인 경우에 메시지 다이얼로그는 뜨는데 뜬 후에 로그인 화면이
> 그대로 있고 포커스가 edit1로 가면 정상인데...
> 메시지 다이얼로그는 뜨는데 오케이를 누르면 로그인 화면이 죽고
> 메인이 떠버리네요...
>
> 이해가 안되네요...