Q&A
- 최용일님 봐주세요...
.dpr 화일
FmLogin := TFmLogin.Create(Application);
if FmLogin.ShowModal = mrCancel then // 성공적으로 로긴이 되지 않았으면.
begin
FmLogin.Free; // 폼을 닫고
Exit; // 프로그램을 끝낸다...
end;
FmLogin.Free;
frmstart:=tfrmstart.create(application);
frmstart.show;
frmstart.update;
Application.Initialize;
Application.Title := 'aaaa';
Application.HelpFile := '';
Application.CreateForm(TMAIN, MAIN);
FrmStart.Free;
Application.Run;
<>
if (비교해서 맞으면) then
TBitbtn(Sender).ModalResult := mrOK
else
begin
messagedlg('사용자 이름과 비밀번호를 다시 확인하세요.',mterror,[mbok],1);
fmlogin.edit1.setfocus;
TBitbtn(Sender).ModalResult := mrNone;
end;
용일님이 전에 시킨대로 저렇게 코딩했어요...
근데 다 되는데...한가지....
로긴화면의 "확인" 버튼을 한번 눌러서는 메인화면이 안 뜨고 꼭 두번을 눌러야 로긴 화면이 죽고 메인이 뜨네요...
참고로 "닫기"버튼은 한번만 누르면 로긴화면이 죽습니다.
다른건 다 제대로 동작하는데 사용자 아이디와 비밀번호가 맞았을때
확인 버튼을 2번 눌러야 splash화면이 뜬 후에 메인이 뜨는 군요...
도저히 이유를 모르겠어요...
좋은 하루 되세요...
FmLogin := TFmLogin.Create(Application);
if FmLogin.ShowModal = mrCancel then // 성공적으로 로긴이 되지 않았으면.
begin
FmLogin.Free; // 폼을 닫고
Exit; // 프로그램을 끝낸다...
end;
FmLogin.Free;
frmstart:=tfrmstart.create(application);
frmstart.show;
frmstart.update;
Application.Initialize;
Application.Title := 'aaaa';
Application.HelpFile := '';
Application.CreateForm(TMAIN, MAIN);
FrmStart.Free;
Application.Run;
<
if (비교해서 맞으면) then
TBitbtn(Sender).ModalResult := mrOK
else
begin
messagedlg('사용자 이름과 비밀번호를 다시 확인하세요.',mterror,[mbok],1);
fmlogin.edit1.setfocus;
TBitbtn(Sender).ModalResult := mrNone;
end;
용일님이 전에 시킨대로 저렇게 코딩했어요...
근데 다 되는데...한가지....
로긴화면의 "확인" 버튼을 한번 눌러서는 메인화면이 안 뜨고 꼭 두번을 눌러야 로긴 화면이 죽고 메인이 뜨네요...
참고로 "닫기"버튼은 한번만 누르면 로긴화면이 죽습니다.
다른건 다 제대로 동작하는데 사용자 아이디와 비밀번호가 맞았을때
확인 버튼을 2번 눌러야 splash화면이 뜬 후에 메인이 뜨는 군요...
도저히 이유를 모르겠어요...
좋은 하루 되세요...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 정아
- 2000.07.14 05:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 조신제
- 2000.07.14 05:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 고재구
- •
- 2000.07.14 04:46
- 1 COMMENTS
- /
- 0 LIKES
-
김동환•2000.09.22 02:42고재구 wrote: > 현재는 File명을 DB에 저장하고 OleContainer를 이용하여 보여주고 있습니다. > file(hw...
-
- hsband
- •
- 2000.07.14 04:18
- 3 COMMENTS
- /
- 0 LIKES
-
김희중•2000.07.15 00:57임형호님과 거의 동일한데 저는 대부분 KeyPress에서 사용합니다. 그리고, 엔터를 입력하면 경고음이 발생...
-
임형호•2000.07.14 07:37hsband wrote: > 사용자 인터페이스로 엔터키를 텝키처럼 쓰는 방법을 알고 싶은데요. 어떻게 해야 하나...
-
방석호•2000.07.14 06:39hsband wrote: > 사용자 인터페이스로 엔터키를 텝키처럼 쓰는 방법을 알고 싶은데요. 어떻게 해야 하나...
-
- 조광제
- 2000.07.14 04:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이왕초보
- •
- 2000.07.14 03:45
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.14 09:27안녕하세요. 최용일입니다. 쩝~ 짤리면 안돼죠... 그냥 for문으로 열나게 돌리세요... 쫌 빨리 처리...
-
타락천사•2000.07.14 09:04안녕하세여.. 타락임다..^^ 그런 함수는 없는걸루 압니다..ㅠㅠ 간단한 함수를 하나 만드세여..^^ ...
-
- Paddy
- •
- 2000.07.14 03:39
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.07.14 08:48안녕하세여.. 타락임다..^^ 자료실에 자료가 올라와 있슴다..^^ 올린분도 잘되는지 모른다구 하더군...
-
- 박현웅
- 2000.07.14 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 김길남
- 2000.07.14 03:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.07.14 03:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 나재호
- 2000.07.14 03:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 조건일
- •
- 2000.07.14 02:49
- 3 COMMENTS
- /
- 0 LIKES
-
최석기•2000.07.14 03:08팁란에 보면요 안치봉님이 예전에 익스플로러 팝업메뉴에 자신의 메뉴 추가시키는 기능 설명해 놓으신거 있...
-
최석기•2000.07.14 03:00투명한 Panel 만들기 소스가 있네요.. 다음 소스에서 Panel부분만 따로 콤포넌트로 만들어 사용하셔도 ...
-
조건일•2000.07.14 03:07감사합니다... 이것때문에 오늘하루 작업진행을 못하고 멀뚱멀뚱 눈만 감았다 뜨고 있었거든요... 한번...
-
- 왕초보
- •
- 2000.07.14 02:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.14 09:38안녕하세요. 최용일입니다. 두개의 API함수 모두 Windows유닛에 있습니다. Windows유닛은 기본적으로 추...
-
- 이광민
- •
- 2000.07.14 02:30
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.07.14 02:35이광민 wrote: > 안녕하세요 델초보 이광민입니다 > edit에다가 숫자를 비밀번호처럼 쓰게하는방법을 가...
-
- 방문객
- •
- 2000.07.14 01:31
- 1 COMMENTS
- /
- 0 LIKES
-
성호종•2000.07.15 23:02방문객 wrote: Application.HelpFile := 'Dream.hlp'; --- 경로와파일명 Application.HelpCommand(H...
-
- 주현이
- •
- 2000.07.14 01:06
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.07.14 02:19주현이 wrote: > paradox DB를 사용하구 있는데요.. > query컴포넌트의 sql문을 작성해서 dbgrid에 데이...
-
- 델초보녀
- •
- 2000.07.14 00:50
- 1 COMMENTS
- /
- 0 LIKES
.dpr 화일 FmLogin := TFmLogin.Create(Application); if FmLogin.ShowModal = mrCancel then // 성공적으로 로긴이 되지 않았으면. begin FmLogin.Free; // 폼을 닫고 Exit; // 프로그램을 끝낸다... end; FmLogin.Free; frmstart:=tfrms...-
최용일•2000.07.14 08:03안녕하세요. 최용일입니다. > TBitbtn(Sender).ModalResult := mr어쩌고...; 위 부분을 아래와 ...
-
- 왕초보
- •
- 2000.07.14 00:36
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.14 01:35왕초보 wrote: > 그냥 함수에서 폼클래스의 메소드를 사용하고 싶습니다. > > 방법이 없는지요? > >...
-
- 델리스파이스
- •
- 2000.07.14 00:11
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.07.14 08:40델리스파이스 wrote: > delphi5 contact란 책을 구입했는데 > 그 책자속에 delphi5 평가판이라는 부록...
-
- castle road
- •
- 2000.07.13 23:52
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.07.14 08:38안녕하세여.. 타락임다..^^ 안될껄여... 리치에디터가 바로 읽으면 안되여.. 왜냐하면, 바이너리...
> TBitbtn(Sender).ModalResult := mr어쩌고...;
위 부분을 아래와 같이 고치고 해보세요...
> ModalResult := mr어쩌고...;
^^ 항상 즐코하세요...
델초보녀 wrote:
> .dpr 화일
>
> FmLogin := TFmLogin.Create(Application);
> if FmLogin.ShowModal = mrCancel then // 성공적으로 로긴이 되지 않았으면.
> begin
> FmLogin.Free; // 폼을 닫고
> Exit; // 프로그램을 끝낸다...
> end;
> FmLogin.Free;
> frmstart:=tfrmstart.create(application);
> frmstart.show;
> frmstart.update;
> Application.Initialize;
> Application.Title := 'aaaa';
> Application.HelpFile := '';
> Application.CreateForm(TMAIN, MAIN);
>
> FrmStart.Free;
> Application.Run;
>
> <
>
> if (비교해서 맞으면) then
> TBitbtn(Sender).ModalResult := mrOK
> else
> begin
> messagedlg('사용자 이름과 비밀번호를 다시 확인하세요.',mterror,[mbok],1);
> fmlogin.edit1.setfocus;
> TBitbtn(Sender).ModalResult := mrNone;
> end;
>
> 용일님이 전에 시킨대로 저렇게 코딩했어요...
> 근데 다 되는데...한가지....
> 로긴화면의 "확인" 버튼을 한번 눌러서는 메인화면이 안 뜨고 꼭 두번을 눌러야 로긴 화면이 죽고 메인이 뜨네요...
>
> 참고로 "닫기"버튼은 한번만 누르면 로긴화면이 죽습니다.
>
> 다른건 다 제대로 동작하는데 사용자 아이디와 비밀번호가 맞았을때
> 확인 버튼을 2번 눌러야 splash화면이 뜬 후에 메인이 뜨는 군요...
>
> 도저히 이유를 모르겠어요...
>
> 좋은 하루 되세요...
>
>