Q&A
- ShowModal 로 폼생성할때 에러가..
안녕하세요
시작과 동시에 로긴폼을 띄울려구 다음과같이 project/sourceview 를
작성하였습니다.
여기 답변올라온 글을 그대로 옮겼지요
그런데 에러가 아는군요..
다른분들은 된다구 하시던데..
힝~
조언좀 부탁드립니다.
다음이 project 의 소스입니다.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {MainForm},
Unit2 in 'Unit2.pas' {InformationForm},
Unit3 in 'Unit3.pas' {LoginForm};
{$R *.RES}
begin
Application.Initialize;
LoginForm := TLoginForm.create(Application);
LoginForm.ShowModal;
if LoginForm.ModalResult = mrOk then
begin // 로긴창 닫구 메인폼 실행
LoginForm.Free;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
else // 그냥 로긴창만 닫는다.
LoginForm.Free;
end.
저기서 if 문에서 mrOK 가 선언되지 않았다는 메세지가 나거든요
Login.Form 에서는 로긴이 제대로 되면
if QueryCnt >= 1 then
ModalResult := mrOK;
이렇게 해줬습니다.
어디서 에러가 나는건지.. 아무리 바도 모르겠어여
부탁드리겠습니다
시작과 동시에 로긴폼을 띄울려구 다음과같이 project/sourceview 를
작성하였습니다.
여기 답변올라온 글을 그대로 옮겼지요
그런데 에러가 아는군요..
다른분들은 된다구 하시던데..
힝~
조언좀 부탁드립니다.
다음이 project 의 소스입니다.
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {MainForm},
Unit2 in 'Unit2.pas' {InformationForm},
Unit3 in 'Unit3.pas' {LoginForm};
{$R *.RES}
begin
Application.Initialize;
LoginForm := TLoginForm.create(Application);
LoginForm.ShowModal;
if LoginForm.ModalResult = mrOk then
begin // 로긴창 닫구 메인폼 실행
LoginForm.Free;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
else // 그냥 로긴창만 닫는다.
LoginForm.Free;
end.
저기서 if 문에서 mrOK 가 선언되지 않았다는 메세지가 나거든요
Login.Form 에서는 로긴이 제대로 되면
if QueryCnt >= 1 then
ModalResult := mrOK;
이렇게 해줬습니다.
어디서 에러가 나는건지.. 아무리 바도 모르겠어여
부탁드리겠습니다
3
COMMENTS
-
-
안녕하세요. 최용일입니다.
uses절에 Controls유닛을 추가해주세요...
mrOk는 Controls유닛에 선언되어 있습니다...
^^ 항상 즐코하세요...
왕초짜 wrote:
> 안녕하세요
>
> 시작과 동시에 로긴폼을 띄울려구 다음과같이 project/sourceview 를
>
> 작성하였습니다.
>
> 여기 답변올라온 글을 그대로 옮겼지요
>
> 그런데 에러가 아는군요..
>
> 다른분들은 된다구 하시던데..
>
> 힝~
>
> 조언좀 부탁드립니다.
>
> 다음이 project 의 소스입니다.
>
> program Project1;
>
> uses
> Forms,
> Unit1 in 'Unit1.pas' {MainForm},
> Unit2 in 'Unit2.pas' {InformationForm},
> Unit3 in 'Unit3.pas' {LoginForm};
>
> {$R *.RES}
>
> begin
>
> Application.Initialize;
>
> LoginForm := TLoginForm.create(Application);
>
> LoginForm.ShowModal;
>
> if LoginForm.ModalResult = mrOk then
>
> begin // 로긴창 닫구 메인폼 실행
> LoginForm.Free;
> Application.CreateForm(TMainForm, MainForm);
> Application.Run;
> end
> else // 그냥 로긴창만 닫는다.
> LoginForm.Free;
> end.
>
> 저기서 if 문에서 mrOK 가 선언되지 않았다는 메세지가 나거든요
>
> Login.Form 에서는 로긴이 제대로 되면
>
> if QueryCnt >= 1 then
> ModalResult := mrOK;
>
> 이렇게 해줬습니다.
>
> 어디서 에러가 나는건지.. 아무리 바도 모르겠어여
>
> 부탁드리겠습니다
>
-
감사합니다.
잘대여~~~
너무너무 조아여~~
감사합니다
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> uses절에 Controls유닛을 추가해주세요...
>
> mrOk는 Controls유닛에 선언되어 있습니다...
>
> ^^ 항상 즐코하세요...
>
> 왕초짜 wrote:
> > 안녕하세요
> >
> > 시작과 동시에 로긴폼을 띄울려구 다음과같이 project/sourceview 를
> >
> > 작성하였습니다.
> >
> > 여기 답변올라온 글을 그대로 옮겼지요
> >
> > 그런데 에러가 아는군요..
> >
> > 다른분들은 된다구 하시던데..
> >
> > 힝~
> >
> > 조언좀 부탁드립니다.
> >
> > 다음이 project 의 소스입니다.
> >
> > program Project1;
> >
> > uses
> > Forms,
> > Unit1 in 'Unit1.pas' {MainForm},
> > Unit2 in 'Unit2.pas' {InformationForm},
> > Unit3 in 'Unit3.pas' {LoginForm};
> >
> > {$R *.RES}
> >
> > begin
> >
> > Application.Initialize;
> >
> > LoginForm := TLoginForm.create(Application);
> >
> > LoginForm.ShowModal;
> >
> > if LoginForm.ModalResult = mrOk then
> >
> > begin // 로긴창 닫구 메인폼 실행
> > LoginForm.Free;
> > Application.CreateForm(TMainForm, MainForm);
> > Application.Run;
> > end
> > else // 그냥 로긴창만 닫는다.
> > LoginForm.Free;
> > end.
> >
> > 저기서 if 문에서 mrOK 가 선언되지 않았다는 메세지가 나거든요
> >
> > Login.Form 에서는 로긴이 제대로 되면
> >
> > if QueryCnt >= 1 then
> > ModalResult := mrOK;
> >
> > 이렇게 해줬습니다.
> >
> > 어디서 에러가 나는건지.. 아무리 바도 모르겠어여
> >
> > 부탁드리겠습니다
> >
(NOTICE) You must be logged in to comment on this post.
-
- isul
- 2001.12.07 09:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 급한데모르는이
- •
- 2001.12.07 06:30
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.07 19:10안녕하세요. 최용일입니다. Project/Project Options메뉴의 Version Info탭에서 Include Version Infoma...
-
- 아무개
- 2001.12.07 05:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.12.07 20:32
- 3 COMMENTS
- /
- 0 LIKES
-
버섯•2001.12.07 23:10델초보 wrote: > DB그리드에서 각 레코드별 색을 다르게 하고 싶은데 > OnDrawDAtaCell이벤트호출이 안되...
-
델초보•2001.12.08 00:21버섯님말씀대루 OnDeawColumnCell 에서 해주니깐 레코드색은 나오는데 글씨가 안보이는 이유는 혹시 ...
-
지나가다가•2001.12.08 17:09지나가다가.... procedure TF_Order01.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; ...
-
- 김희라
- •
- 2001.12.07 03:25
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.07 03:34안녕하세요. 최용일입니다. 파일이름은 제대로 나타나는거 같네요.. 단지 Short File Name으로 나타나는...
-
김희라•2001.12.07 04:37감사합니다. 그리고 델파이 1.0에서 Tif파일 지원은 하는 라이브러리를 사용하고 있습니다. ^^ ...
-
- 급하니
- 2001.12.07 03:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.12.07 03:18
- 0 COMMENTS
- /
- 0 LIKES
-
- Cha
- 2001.12.07 03:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 폭폭
- •
- 2001.12.07 02:28
- 2 COMMENTS
- /
- 0 LIKES
-
김윤태•2001.12.07 02:37폭폭 wrote: > WinZeos를 이용한 Blob필드에 파일을 저장할려고 하는데요... > > Params.ParamByName('...
-
폭폭•2001.12.07 20:00님께서 말한대로 했는데 역시나 SQL구문 에러가 납니다. Blob필드를 막고 하면 잘 저장이 돼는데..왜 ...
-
- 초보
- 2001.12.07 02:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초봉
- 2001.12.07 01:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 델허접
- 2001.12.07 01:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 남호진
- 2001.12.07 00:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 인어공주
- 2001.12.07 00:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 돌쇠
- •
- 2001.12.06 23:31
- 4 COMMENTS
- /
- 0 LIKES
-
Runo•2001.12.06 23:51안녕하세요.. 저도 초보지만 제가 경험한거랑 같아서 .. 엑세스에서는 기본적으로 한글기준으로 length를...
-
돌쇠•2001.12.07 01:58Runo wrote: > 안녕하세요.. > 저도 초보지만 제가 경험한거랑 같아서 .. > 엑세스에서는 기본적으로 한...
-
Runo•2001.12.07 04:18죄송합니다. 영 도움이 안되는 답변이었군요. 저도 확인해 보니까 bde에서 두배로 length가 잡히더군요. ...
-
돌쇠•2001.12.07 23:08답변 감사하구요...또 글 올려주셔서 감사합니다.. 님 말씀하신데로... BDE 버그 같슴다.. 넘 화가나서 ...
-
- 이보학
- 2001.12.06 23:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 델친구
- 2001.12.06 23:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 알꼬시포
- •
- 2001.12.06 22:12
- 1 COMMENTS
- /
- 0 LIKES
-
천상천하•2001.12.07 01:18혹시 인터베이스가 실행중인지 확인해 보시고요, 실행되어 있다면 알리아스가 제대로 되어 있는지 확인...
-
- 왕초짜
- •
- 2001.12.06 21:52
- 3 COMMENTS
- /
- 0 LIKES
안녕하세요 시작과 동시에 로긴폼을 띄울려구 다음과같이 project/sourceview 를 작성하였습니다. 여기 답변올라온 글을 그대로 옮겼지요 그런데 에러가 아는군요.. 다른분들은 된다구 하시던데.. 힝~ 조언좀 부탁드립니다. 다음이 projec...-
석•2001.12.06 22:10project Unit의 Uses에 Controls를 추가하세요 왕초짜 wrote: > 안녕하세요 > > 시작과 동시에 로긴...
-
최용일•2001.12.06 22:05안녕하세요. 최용일입니다. uses절에 Controls유닛을 추가해주세요... mrOk는 Controls유닛에 선언되...
-
왕초짜•2001.12.06 22:34감사합니다. 잘대여~~~ 너무너무 조아여~~ 감사합니다 최용일 wrote: > 안녕하세요. 최용일입...
-
- 김병식
- 2001.12.06 21:27
- 0 COMMENTS
- /
- 0 LIKES
왕초짜 wrote:
> 안녕하세요
>
> 시작과 동시에 로긴폼을 띄울려구 다음과같이 project/sourceview 를
>
> 작성하였습니다.
>
> 여기 답변올라온 글을 그대로 옮겼지요
>
> 그런데 에러가 아는군요..
>
> 다른분들은 된다구 하시던데..
>
> 힝~
>
> 조언좀 부탁드립니다.
>
> 다음이 project 의 소스입니다.
>
> program Project1;
>
> uses
> Forms,
> Unit1 in 'Unit1.pas' {MainForm},
> Unit2 in 'Unit2.pas' {InformationForm},
> Unit3 in 'Unit3.pas' {LoginForm};
>
> {$R *.RES}
>
> begin
>
> Application.Initialize;
>
> LoginForm := TLoginForm.create(Application);
>
> LoginForm.ShowModal;
>
> if LoginForm.ModalResult = mrOk then
>
> begin // 로긴창 닫구 메인폼 실행
> LoginForm.Free;
> Application.CreateForm(TMainForm, MainForm);
> Application.Run;
> end
> else // 그냥 로긴창만 닫는다.
> LoginForm.Free;
> end.
>
> 저기서 if 문에서 mrOK 가 선언되지 않았다는 메세지가 나거든요
>
> Login.Form 에서는 로긴이 제대로 되면
>
> if QueryCnt >= 1 then
> ModalResult := mrOK;
>
> 이렇게 해줬습니다.
>
> 어디서 에러가 나는건지.. 아무리 바도 모르겠어여
>
> 부탁드리겠습니다
>