Q&A
- 실행중인 어플리케이션을 강제종료하려면 어떻게 하죠..
먼저 소스를 보면.
program Form1;
uses
Forms,
UUnit1 in 'UUnit1.pas' {Form1},
ULogin in 'UUnit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
이렇게 실행되는데,
TForm1가 실행되기전에, TForm2을 실행 시켜서, 아이디 패스워드 체크등,
사용자 입력에 따라 TForm1의 실행여부를 결정하려 합니다.
TForm1, TForm2내부는 별다른게 없고, 일단 그 실행여부를 결정하려는데,
TForm2의 입력에 따라 TFrom1를 Close를 해도,
즉, TForm2에서 사용자의 입력에 따라,
if Edit2.Text = [wrong password] then
form1.Close;
이렇게 close를 해도,
Application.CreateForm(TForm1, Form1);
가 실행되어 TForm2가 실행됩니다.
어떻게 TForm1에서 TForm2의 실행을 막을 수 있을까요...
program Form1;
uses
Forms,
UUnit1 in 'UUnit1.pas' {Form1},
ULogin in 'UUnit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
이렇게 실행되는데,
TForm1가 실행되기전에, TForm2을 실행 시켜서, 아이디 패스워드 체크등,
사용자 입력에 따라 TForm1의 실행여부를 결정하려 합니다.
TForm1, TForm2내부는 별다른게 없고, 일단 그 실행여부를 결정하려는데,
TForm2의 입력에 따라 TFrom1를 Close를 해도,
즉, TForm2에서 사용자의 입력에 따라,
if Edit2.Text = [wrong password] then
form1.Close;
이렇게 close를 해도,
Application.CreateForm(TForm1, Form1);
가 실행되어 TForm2가 실행됩니다.
어떻게 TForm1에서 TForm2의 실행을 막을 수 있을까요...
4
COMMENTS
-
-
최용일 wrote:
> 안녕하세요. 최용일입니다...
>
> 이러한 방법은 별루 좋은 방법이 아니구요... 스플래쉬폼에서 자주사용하는 것처럼 모들형식으로 호출하세요...
>
> 패스워드가맞다면 폼2의 ModalResult에 mrOk를 넣어주고, 틀리다면 mrCancel을 넣어주시면 됩니다...
>
> 프로젝트소스
> var
> CorrectPassword: Boolean;
> begin
> Form2 := TForm2.Create(nil);
> CorrectPassword := Form2.ShowModal;
여기서, Boolean과 Integer Type이 맞지 않는다고 에러가 발생하고요..
> Form2.Free;
> if CorrectPassword = mrOK then // 패스워드가 맞다면... 폼1을 연다...
여기서는, mrOK가 선언되지 않았다는 에러가 발생하네요..
> begin // 맞지 않다면 프로그램 그냥 종료...
> Application.Initialize;
> Application.CreateForm(TForm1, Form1);
> Application.Run;
> end;
> end.
>
> 폼2
> if Edit2.Text = [wrong password] then
> ModalResult := mrCancel
> else
> ModalResult := mrOk;
>
> ^^ 항상 즐코하세요...
>
답변 감사해요, 그런데, 위와 같은 에러가 나네요..
그래서 나름대로 매뉴얼을 보니, ShowModal은 정수값이고, 그걸 사용할 수 있다고 되어 있는데, 그렇다면, mrOK, mrCancel 같은 것도 정수값으로 되어 있다는 건가요?
그리고 이 정수값이 선언 되지 않았다는 걸 해결하려면 어떻게 해야되나요...
쩝, 마냥 어렵기만 하네요.. 부탁해요..
-
읔~ 제가 실수했군요....
var
CorrectPassword: Integer;
그리고 프로젝트소스의 uses절에 Controls유닛을 추가해주세요...
초보 wrote:
> 최용일 wrote:
> > 안녕하세요. 최용일입니다...
> >
> > 이러한 방법은 별루 좋은 방법이 아니구요... 스플래쉬폼에서 자주사용하는 것처럼 모들형식으로 호출하세요...
> >
> > 패스워드가맞다면 폼2의 ModalResult에 mrOk를 넣어주고, 틀리다면 mrCancel을 넣어주시면 됩니다...
> >
> > 프로젝트소스
> > var
> > CorrectPassword: Boolean;
> > begin
> > Form2 := TForm2.Create(nil);
> > CorrectPassword := Form2.ShowModal;
>
> 여기서, Boolean과 Integer Type이 맞지 않는다고 에러가 발생하고요..
>
> > Form2.Free;
> > if CorrectPassword = mrOK then // 패스워드가 맞다면... 폼1을 연다...
>
> 여기서는, mrOK가 선언되지 않았다는 에러가 발생하네요..
>
> > begin // 맞지 않다면 프로그램 그냥 종료...
> > Application.Initialize;
> > Application.CreateForm(TForm1, Form1);
> > Application.Run;
> > end;
> > end.
> >
> > 폼2
> > if Edit2.Text = [wrong password] then
> > ModalResult := mrCancel
> > else
> > ModalResult := mrOk;
> >
> > ^^ 항상 즐코하세요...
> >
>
> 답변 감사해요, 그런데, 위와 같은 에러가 나네요..
> 그래서 나름대로 매뉴얼을 보니, ShowModal은 정수값이고, 그걸 사용할 수 있다고 되어 있는데, 그렇다면, mrOK, mrCancel 같은 것도 정수값으로 되어 있다는 건가요?
>
> 그리고 이 정수값이 선언 되지 않았다는 걸 해결하려면 어떻게 해야되나요...
> 쩝, 마냥 어렵기만 하네요.. 부탁해요..
>
>
-
첫번째 방법으로는 Form1 의 left 를 -3000 해서 숨긴다음에
Form1.create 에서 판단한후 Form2.show를 하는 방법이 있구요( 꽁수)
다음은 Form1 에서 판단한후 판단 여부에 따라서 Form2 를 생성하거나 하시면 됩니다.
여기서 중요한것은 Form2를 AutoCreate 하면 안되고, 폼을 동적으로 생성하셔야
합니다.
(NOTICE) You must be logged in to comment on this post.
-
- 이강준
- 2001.06.01 01:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 강명완
- •
- 2001.06.01 01:25
- 3 COMMENTS
- /
- 0 LIKES
-
변인호•2001.06.01 02:48강명완 wrote: > 저는 C를 사용하여 DLL을 만들었습니다. > 이걸 델파이에서 사용해야 하는데요. > 어떻...
-
강명완•2001.06.01 05:01죄송합니다만... 한번 더 봐주시겠습니까? 먼저 C로 작성된 DLL에서는 다음과 같이 선언하였습니다. e...
-
최용일•2001.06.01 05:21안녕하세요. 최용일입니다. 하나의 함수만 필요하다면 하나의 함수만 선언해서 사용하시면 됩니다... ...
-
- 심현지
- •
- 2001.06.01 01:00
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.01 05:28안녕하세요. 최용일입니다. 인스톨할때 패키지를 선택해서 하셨죠? 그러니까 그 패키지에 컴포넌트가 들...
-
- 최계호
- •
- 2001.06.01 00:35
- 8 COMMENTS
- /
- 0 LIKES
-
델ABC•2001.06.01 00:42
-
최계호•2001.06.01 03:01
-
성더기•2001.06.01 03:16
-
최계호•2001.06.01 03:36
-
성더기•2001.06.02 19:27
-
델ABC•2001.06.01 04:59
-
최계호•2001.06.01 22:48
- • • •
-
- 델ABC
- •
- 2001.06.01 00:06
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.06.01 04:51델ABC wrote: > 델 고수님 안녕하세요... > 지는 지금 Query를 이용 DBGrid에 테이블내용을 나타냈는디유...
-
- 초보
- •
- 2001.05.31 23:24
- 4 COMMENTS
- /
- 0 LIKES
먼저 소스를 보면. program Form1; uses Forms, UUnit1 in 'UUnit1.pas' {Form1}, ULogin in 'UUnit2.pas' {Form2}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm1, F...-
최용일•2001.06.01 00:31안녕하세요. 최용일입니다... 이러한 방법은 별루 좋은 방법이 아니구요... 스플래쉬폼에서 자주사용하...
-
초보•2001.06.01 18:57최용일 wrote: > 안녕하세요. 최용일입니다... > > 이러한 방법은 별루 좋은 방법이 아니구요... 스플...
-
최용일•2001.06.01 20:19읔~ 제가 실수했군요.... var CorrectPassword: Integer; 그리고 프로젝트소스의 uses절에 Cont...
-
이현철•2001.06.01 00:27첫번째 방법으로는 Form1 의 left 를 -3000 해서 숨긴다음에 Form1.create 에서 판단한후 Form2.show를 하...
-
- 진짜초보
- •
- 2001.05.31 23:14
- 2 COMMENTS
- /
- 0 LIKES
-
김한•2001.06.01 02:10BDE에서 local말구 server로 설정하고 사용해 보세요.. 진짜초보 wrote: > BDE안쓰고 MS-SQL과 연결하...
-
이현철•2001.06.01 00:36진짜초보 wrote: > BDE안쓰고 MS-SQL과 연결하구 싶은데여... > 잘안되여.... > 연결하는법 좀 알려 주...
-
- hytool
- 2001.05.31 23:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 한구용
- 2001.05.31 22:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 김대규
- •
- 2001.05.31 22:32
- 2 COMMENTS
- /
- 0 LIKES
-
민•2001.06.04 09:04제가 대규님의 질문을 본 바로는 포인터에 대한 개념을 아직 완전히 이해하고 계시지 못한 것으로 보입니...
-
김대규•2001.06.05 18:40감사합니당~... 근데 저두 어떠한시점에 그런현상이 생기는지 일관성을 찾을수가없어서... 결국은 PChar...
-
- 박건수
- •
- 2001.05.31 22:25
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.06.01 03:14박건수 wrote: > 안녕하세요 > 제가 할려고 하는 것은 query 를 써서 불러온데이터를 dbgrid에 뿌려 주는...
-
- 111
- 2001.05.31 21:54
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2001.06.01 00:37
-
백승환•2001.06.01 01:34
-
최용일•2001.06.01 02:13
-
백승환•2001.06.01 19:38
-
최용일•2001.06.01 21:42
-
-
- 알고시퍼요~
- •
- 2001.05.31 21:13
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.06.01 03:11select 문일경우 query1.open을 사용합니다 그외의 경우는 query1.execsql을 사용하지요 즉 커서 에러...
-
- 영
- •
- 2001.05.31 20:39
- 2 COMMENTS
- /
- 0 LIKES
-
김현•2001.06.22 02:40혹시 client에서 informix의 senet32에 환경설정이 되어있는지 확인해 보세요? 잘은 모르겠지만 여기에 ...
-
이강재•2001.06.01 02:58버전과 환경이 조금 다를 지 몰라도 일단 ilogin demo로 접속이 확인
-
- 써니
- 2001.05.31 20:28
- 0 COMMENTS
- /
- 0 LIKES
-
- mrsDelphi
- •
- 2001.05.31 20:17
- 1 COMMENTS
- /
- 0 LIKES
-
최진환•2001.06.05 19:43정말 오랫만에 답변을 해 드리는것 같네요..^^.. BDE는 배포용으로 DLL형태로 패키지가 되어 있는 놈이 있...
-
- 이광주
- 2001.05.31 20:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 이은영
- 2001.05.31 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보...^^;
- •
- 2001.05.31 19:25
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.31 19:40안녕하세요. 최용일입니다... 아래와 같이 실행하세요... procedure TForm1.Button1Click(Sender: TO...
이러한 방법은 별루 좋은 방법이 아니구요... 스플래쉬폼에서 자주사용하는 것처럼 모들형식으로 호출하세요...
패스워드가맞다면 폼2의 ModalResult에 mrOk를 넣어주고, 틀리다면 mrCancel을 넣어주시면 됩니다...
프로젝트소스
var
CorrectPassword: Boolean;
begin
Form2 := TForm2.Create(nil);
CorrectPassword := Form2.ShowModal;
Form2.Free;
if CorrectPassword = mrOK then // 패스워드가 맞다면... 폼1을 연다...
begin // 맞지 않다면 프로그램 그냥 종료...
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
폼2
if Edit2.Text = [wrong password] then
ModalResult := mrCancel
else
ModalResult := mrOk;
^^ 항상 즐코하세요...
초보 wrote:
> 먼저 소스를 보면.
> program Form1;
>
> uses
> Forms,
> UUnit1 in 'UUnit1.pas' {Form1},
> ULogin in 'UUnit2.pas' {Form2};
>
> {$R *.RES}
>
> begin
> Application.Initialize;
> Application.CreateForm(TForm2, Form2);
> Application.CreateForm(TForm1, Form1);
> Application.Run;
> end.
>
> 이렇게 실행되는데,
> TForm1가 실행되기전에, TForm2을 실행 시켜서, 아이디 패스워드 체크등,
> 사용자 입력에 따라 TForm1의 실행여부를 결정하려 합니다.
>
> TForm1, TForm2내부는 별다른게 없고, 일단 그 실행여부를 결정하려는데,
> TForm2의 입력에 따라 TFrom1를 Close를 해도,
> 즉, TForm2에서 사용자의 입력에 따라,
>
> if Edit2.Text = [wrong password] then
> form1.Close;
>
> 이렇게 close를 해도,
>
> Application.CreateForm(TForm1, Form1);
>
> 가 실행되어 TForm2가 실행됩니다.
> 어떻게 TForm1에서 TForm2의 실행을 막을 수 있을까요...