Q&A
- 모달폼에 대한 질문임돠...^^
오늘 하루 종일 이것땜시 헤매네여...ㅠㅠ
음...모달폼으루 검색창을 하나 띄우는데여...
컴포넌트이동을 엔터키루 하게 했거덩여...
모든 Edit컴포에 전부 연결 시켜 주구여...근데
플그램을 실행 시켜놓으면 이 이벤트를 타지 않구 엉뚱한 버튼 이벤트를 타 버립니다..
쩝 오늘 하루 죙일 알아본 결과 원인은 대충 알겠는데 왜 그런지 영 모르겠군여...
버튼 이벤트를 타는 이유는 버튼이 비트맵버튼이고 속성은 kind = bkOK ,
ModalResult = mrok 으로 했슴돠..이것으루 한 이윤 기본 비트맵 'v'자가 나타나게 할려구여... -_-
여러 고수님들 왜 Edit 컴포에서 keypress이벤트를 거치지 않구 버튼 클릭 이벤트를 타는지 갈켜 주세여...흑흑....
소스두 올림돠....^^;;
procedure TfrmPopUp.BtnOkClick(Sender: TObject);
// edit 박스에서 조건 입력후 엔터키를 누르면 이 이벤트를 타 버립니다..-_-
begin
// 클라이언트에서 쿼리로 검색....
with DM1.Qr1 do
begin
Close;
Sql.Clear;
쿼리 어쩌구 저쩌구....^^;;;
OPen;
Last;
First;
end;
If DM1.Qr1.RecordCount = 0 then
begin
showmessage('found Not Data');
check := 3;
end Else
begin
check := 1;
end;
end;
procedure TfrmPopUp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
case check of
1 : ModalResult := mrOK;
2 : ModalResult := mrCanCel;
3 : ModalResult := mrNone;
else ModalResult := mrNone;
end;
end;
procedure TfrmPopUp.Cb_FilgbnKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
Begin
SelectNext(Sender As TWinControl, True, True);
Key := #0;
End;
end;
procedure TfrmPopUp.BtnCancelClick(Sender: TObject);
begin
If MessageDlg('취소 하시겠습니까?',mtInformation,
[mbOk,mbcancel],0) = mrOk then
begin
check := 2;
end;
end;
procedure TfrmPopUp.FormCreate(Sender: TObject);
begin
check := 0;
end;
음...모달폼으루 검색창을 하나 띄우는데여...
컴포넌트이동을 엔터키루 하게 했거덩여...
모든 Edit컴포에 전부 연결 시켜 주구여...근데
플그램을 실행 시켜놓으면 이 이벤트를 타지 않구 엉뚱한 버튼 이벤트를 타 버립니다..
쩝 오늘 하루 죙일 알아본 결과 원인은 대충 알겠는데 왜 그런지 영 모르겠군여...
버튼 이벤트를 타는 이유는 버튼이 비트맵버튼이고 속성은 kind = bkOK ,
ModalResult = mrok 으로 했슴돠..이것으루 한 이윤 기본 비트맵 'v'자가 나타나게 할려구여... -_-
여러 고수님들 왜 Edit 컴포에서 keypress이벤트를 거치지 않구 버튼 클릭 이벤트를 타는지 갈켜 주세여...흑흑....
소스두 올림돠....^^;;
procedure TfrmPopUp.BtnOkClick(Sender: TObject);
// edit 박스에서 조건 입력후 엔터키를 누르면 이 이벤트를 타 버립니다..-_-
begin
// 클라이언트에서 쿼리로 검색....
with DM1.Qr1 do
begin
Close;
Sql.Clear;
쿼리 어쩌구 저쩌구....^^;;;
OPen;
Last;
First;
end;
If DM1.Qr1.RecordCount = 0 then
begin
showmessage('found Not Data');
check := 3;
end Else
begin
check := 1;
end;
end;
procedure TfrmPopUp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
case check of
1 : ModalResult := mrOK;
2 : ModalResult := mrCanCel;
3 : ModalResult := mrNone;
else ModalResult := mrNone;
end;
end;
procedure TfrmPopUp.Cb_FilgbnKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
Begin
SelectNext(Sender As TWinControl, True, True);
Key := #0;
End;
end;
procedure TfrmPopUp.BtnCancelClick(Sender: TObject);
begin
If MessageDlg('취소 하시겠습니까?',mtInformation,
[mbOk,mbcancel],0) = mrOk then
begin
check := 2;
end;
end;
procedure TfrmPopUp.FormCreate(Sender: TObject);
begin
check := 0;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이원택
- •
- 2000.11.14 03:40
- 2 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.14 05:27이원택 wrote: > "19991231"과 "20000101"이라는 두 값으로 경과일을 계산하여 1일이라고 > Edit Box에 ... -
nilriri•2000.11.14 04:29질문을 하시기 전에 먼저 자료실과 팁란을 검색하시면 보다 다양한 답변을 빨리 얻을 수 있을것 같군요......
-
- volf
- •
- 2000.11.14 03:36
- 2 COMMENTS
- /
- 0 LIKES
-
김하늘•2000.11.14 06:56글쎄유 잘은 모르겠지만... 소리바다는 별도로 클라이언트 모듈에 서버소켓이 같이 내장되있을것 같네요 ...
-
volf•2000.11.14 06:54하나의 폼에 서버소켓과 클라이언트 소켓같이 활성화 해도 되네요.. 제가 실수한것은 디스커넥션이 되었...
-
- ljb007
- •
- 2000.11.14 03:30
- 1 COMMENTS
- /
- 0 LIKES
-
안정한•2000.11.14 21:26ljb007 wrote: > QuickRep에서 세금계산서를 인쇄하려는데 A4한장에 위에는 공급자 아래에는 공급받는자 ...
-
- ljb007
- 2000.11.14 03:27
- 0 COMMENTS
- /
- 0 LIKES
-
-
nilriri•2000.11.14 05:19convert라는 함수가 있습니다. convert(필드명, 자료형(길이)) 자세히 기억이 나질 않네요... cast (필...
-
모영운•2000.11.14 03:45뭘 어떻게 변환 할꺼죠? sql은 변환하는 재미가 솔솔 넘치죠 ^_^ 모휘숙 wrote: > 저기여 지송한데여....
-
-
- 한두경
- •
- 2000.11.14 02:46
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.14 02:56예를 들어 띄울 폼의 타입이 TForm2라면 띄울때마다 Form2[K] := TForm2.Create(Self); 물론 K는 증가하...
-
- 한두경
- 2000.11.14 02:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤미영
- •
- 2000.11.14 02:07
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.14 06:06유감이지만 이건 윈도우 자체가 그렇게 된 것이므로 MouseDown이 발생되지 않고 DblClick이 발생되게 할 ...
-
- 김기학
- •
- 2000.11.14 01:42
- 1 COMMENTS
- /
- 0 LIKES
-
허춘•2000.11.14 09:04김기학 wrote: > 첫번째 > - 인터베이스에서 DB를 동적으로 생성할수 있는지요? > - 생성할수 있다면...
-
- 바보
- 2000.11.14 00:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 멍게
- 2000.11.14 00:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 방경주
- •
- 2000.11.14 00:40
- 1 COMMENTS
- /
- 0 LIKES
오늘 하루 종일 이것땜시 헤매네여...ㅠㅠ 음...모달폼으루 검색창을 하나 띄우는데여... 컴포넌트이동을 엔터키루 하게 했거덩여... 모든 Edit컴포에 전부 연결 시켜 주구여...근데 플그램을 실행 시켜놓으면 이 이벤트를 타지 않구 엉뚱...-
방경주•2000.11.14 01:02방경주 wrote: > 오늘 하루 종일 이것땜시 헤매네여...ㅠㅠ > > 음...모달폼으루 검색창을 하나 띄우는...
-
- 궁금이
- 2000.11.14 00:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 강호은
- 2000.11.14 00:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2000.11.14 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.11.14 02:27안녕하세요, 화상관련 컴포넌트를 올린 이경문이라고 합니다. 화상통신을 하려면 PC카메라가 우선 있어야 ...
-
- 프리지아
- •
- 2000.11.14 00:27
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2000.11.17 19:58프리지아 wrote: > 안녕하세요.. > 질문 그대로 오라클 DB를 사용한 ActiveX폼을 사용할려구 합니다.. >...
-
- 질문
- 2000.11.14 00:25
- 0 COMMENTS
- /
- 0 LIKES
-
- volf
- 2000.11.13 23:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2000.11.14 02:15
- 1 COMMENTS
- /
- 0 LIKES
-
아자•2000.11.14 00:53흠...질문하러 왔다 같은 경험을 해본 아자~ 임니다...^^; 저두 전에 이런 프린팅 플그램을 짜본적이 있...
-
- 김병곤
- •
- 2000.11.13 22:51
- 1 COMMENTS
- /
- 0 LIKES
-
권영길•2000.11.15 05:25샘플에 보면 잘 되어있습니다. winshoe에서는 깨지는 부분 있었는데 indy에서는 깨지는 경우(Decoding)이 ...
> 오늘 하루 종일 이것땜시 헤매네여...ㅠㅠ
>
> 음...모달폼으루 검색창을 하나 띄우는데여...
>
> 컴포넌트이동을 엔터키루 하게 했거덩여...
>
> 모든 Edit컴포에 전부 연결 시켜 주구여...근데
>
> 플그램을 실행 시켜놓으면 이 이벤트를 타지 않구 엉뚱한 버튼 이벤트를 타 버립니다..
>
> 쩝 오늘 하루 죙일 알아본 결과 원인은 대충 알겠는데 왜 그런지 영 모르겠군여...
>
> 버튼 이벤트를 타는 이유는 버튼이 비트맵버튼이고 속성은 kind = bkOK ,
>
> ModalResult = mrok 으로 했슴돠..이것으루 한 이윤 기본 비트맵 'v'자가 나타나게 할려구여... -_-
>
> 여러 고수님들 왜 Edit 컴포에서 keypress이벤트를 거치지 않구 버튼 클릭 이벤트를 타는지 갈켜 주세여...흑흑....
>
> 소스두 올림돠....^^;;
>
> procedure TfrmPopUp.BtnOkClick(Sender: TObject);
> // edit 박스에서 조건 입력후 엔터키를 누르면 이 이벤트를 타 버립니다..-_-
> begin
> // 클라이언트에서 쿼리로 검색....
> with DM1.Qr1 do
> begin
> Close;
> Sql.Clear;
> 쿼리 어쩌구 저쩌구....^^;;;
> OPen;
> Last;
> First;
> end;
> If DM1.Qr1.RecordCount = 0 then
> begin
> showmessage('found Not Data');
> check := 3;
> end Else
> begin
> check := 1;
> end;
> end;
>
> procedure TfrmPopUp.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> case check of
> 1 : ModalResult := mrOK;
> 2 : ModalResult := mrCanCel;
> 3 : ModalResult := mrNone;
> else ModalResult := mrNone;
> end;
> end;
>
> procedure TfrmPopUp.Cb_FilgbnKeyPress(Sender: TObject; var Key: Char);
> begin
> If Key = #13 Then
> Begin
> SelectNext(Sender As TWinControl, True, True);
> Key := #0;
> End;
> end;
>
> procedure TfrmPopUp.BtnCancelClick(Sender: TObject);
> begin
> If MessageDlg('취소 하시겠습니까?',mtInformation,
> [mbOk,mbcancel],0) = mrOk then
> begin
> check := 2;
> end;
> end;
>
> procedure TfrmPopUp.FormCreate(Sender: TObject);
> begin
> check := 0;
> end;
답을 찾았슴돠...^^
미테 다른걸 찾다가 발견한건데 kind를 지정해 놓으면 Default속성이 true가 되어서
엔터시에두 버튼 클릭 이벤트가 발생하는 것이었슴돠....
이렇게 간단한걸 반나절 동안 찾다니...난 ....바보 였나부다.. -_-;;
쩝...역쉬 검색을 잘하면 답이 보이는군...냐하하^^
참고 하세여~