Q&A
- (Sender as TObject) 에 관련된 질문
한 폼에 dbgrid가 7개가 있고 10개 정도의 에디트 박스가 있습니다.
form의 onkeypress event에 아래와 같이 코딩을 했는데 디비그리드에서
엔터를 누르면 "invalid type cast" 라고 나오는 군요.
일일이 7개의 디비그리드를 if문을 주어서 할 수도 없고
고수님들의 조언 바랍니다.
if (key = #13) and (ActiveControl = (sender as TDbgrid)) Then
begin
Postmessage( (sender as TDbgrid).Handle,WM_keyDown,VK_TAB,0) ;
end
else if (key = #13) Then
begin
SelectNext(Activecontrol as Twincontrol,True,True) ;
Key := #0 ;
end ;
위의 경우에는(디비그리드에서 엔터칠경우만) invalid type cast 의 에러가 나오며
아래의 경우는 에러는 나지 않지만 엔터가 먹지 않네요.
if (key = #13) and (ActiveControl = Tbdgrid(sender)) Then
begin
Postmessage( TDbgrid(Sender).Handle,WM_keyDown,VK_TAB,0) ;
end
else if (key = #13) Then
begin
SelectNext(Activecontrol as Twincontrol,True,True) ;
Key := #0 ;
end ;
form의 onkeypress event에 아래와 같이 코딩을 했는데 디비그리드에서
엔터를 누르면 "invalid type cast" 라고 나오는 군요.
일일이 7개의 디비그리드를 if문을 주어서 할 수도 없고
고수님들의 조언 바랍니다.
if (key = #13) and (ActiveControl = (sender as TDbgrid)) Then
begin
Postmessage( (sender as TDbgrid).Handle,WM_keyDown,VK_TAB,0) ;
end
else if (key = #13) Then
begin
SelectNext(Activecontrol as Twincontrol,True,True) ;
Key := #0 ;
end ;
위의 경우에는(디비그리드에서 엔터칠경우만) invalid type cast 의 에러가 나오며
아래의 경우는 에러는 나지 않지만 엔터가 먹지 않네요.
if (key = #13) and (ActiveControl = Tbdgrid(sender)) Then
begin
Postmessage( TDbgrid(Sender).Handle,WM_keyDown,VK_TAB,0) ;
end
else if (key = #13) Then
begin
SelectNext(Activecontrol as Twincontrol,True,True) ;
Key := #0 ;
end ;
2
COMMENTS
-
-
안녕하세요..
델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.
님 Form의 KeyPress에서 다음돠 같이 사용이 됐다면 Sender는 Form이 되겠네요..
그것을 TDbGrid로 cast 하니까 당연히 그런 에러가 발생할꺼 같네요..
홍광기 wrote:
> 한 폼에 dbgrid가 7개가 있고 10개 정도의 에디트 박스가 있습니다.
>
> form의 onkeypress event에 아래와 같이 코딩을 했는데 디비그리드에서
> 엔터를 누르면 "invalid type cast" 라고 나오는 군요.
> 일일이 7개의 디비그리드를 if문을 주어서 할 수도 없고
> 고수님들의 조언 바랍니다.
>
> if (key = #13) and (ActiveControl = (sender as TDbgrid)) Then
> begin
> Postmessage( (sender as TDbgrid).Handle,WM_keyDown,VK_TAB,0) ;
> end
> else if (key = #13) Then
> begin
> SelectNext(Activecontrol as Twincontrol,True,True) ;
> Key := #0 ;
> end ;
>
>
> 위의 경우에는(디비그리드에서 엔터칠경우만) invalid type cast 의 에러가 나오며
> 아래의 경우는 에러는 나지 않지만 엔터가 먹지 않네요.
>
> if (key = #13) and (ActiveControl = Tbdgrid(sender)) Then
> begin
> Postmessage( TDbgrid(Sender).Handle,WM_keyDown,VK_TAB,0) ;
> end
> else if (key = #13) Then
> begin
> SelectNext(Activecontrol as Twincontrol,True,True) ;
> Key := #0 ;
> end ;
>
>
(NOTICE) You must be logged in to comment on this post.
-
- 짱초보
- •
- 2000.08.30 05:04
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.08.30 05:10먼저 백업하시구 메세지박스가 뜨면 ignore all 하십시요. 소스가 뒤죽박죽 될 수 도있으니 꼭 백업하셔야...
-
- 다모아
- •
- 2000.08.30 10:56
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2000.08.30 10:57다모아 wrote: > 궁금한게 있습니다... > > 예를 들어) > 어떤 테이블인지는 모르지만 테이블에 '1'이...
-
- termy
- 2000.08.30 04:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 송현경
- 2000.08.30 03:24
- 0 COMMENTS
- /
- 0 LIKES
-
-
이은정•2000.08.30 03:39최혜정 wrote: > 날 마다 날마다 여길 들르지 않으면 내가 한 코딩이 의심스러울 정도입니다. > 어쨌거나...
-
-
- 김애영
- •
- 2000.08.30 03:15
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.08.30 04:00김애영 wrote: > 탐색기나 내컴퓨터를 보면 상태바에 폴더 안에 있는 서브폴더를 제외한 파일 사이즈가 나...
-
- 델피언
- •
- 2000.08.30 02:54
- 1 COMMENTS
- /
- 0 LIKES
-
델피언•2000.08.30 03:43음~ 문제는 역시 move문 이었습니다. 혹시 이런 방법이 일반적인 처리 방법이 아닐지도 모릅니다. 이 방...
-
- 풍운
- 2000.08.30 02:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 찾는이
- 2000.08.30 04:19
- 0 COMMENTS
- /
- 0 LIKES
-
- dookie
- 2000.08.30 04:09
- 0 COMMENTS
- /
- 0 LIKES
-
- heimdal
- 2000.08.30 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피언
- 2000.08.30 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 푸하하
- •
- 2000.08.30 01:18
- 1 COMMENTS
- /
- 0 LIKES
-
바사기몬•2000.08.30 03:30델파이 헬프에 있는 원문입니다... NumberOfMonths의 값은 물론 마이너스 값도 가능하구요.. IncMonth ...
-
- 정성용
- •
- 2000.08.30 04:18
- 3 COMMENTS
- /
- 0 LIKES
-
linuxwiz•2000.08.30 20:52정성용 wrote: > 도움을 요청 합니다. 부디 좋은 대답을... > > 전체 레코드개수를 구할려구 하는데여...
-
최창욱•2000.08.30 04:19정성용 wrote: > 도움을 요청 합니다. 부디 좋은 대답을... > > 전체 레코드개수를 구할려구 하는데여...
-
s6763•2000.08.30 04:19select count(*) from dbo.board 를 써보세요 정성용 wrote: > 도움을 요청 합니다. 부디 좋은 ...
-
- 홍광기
- •
- 2000.08.30 00:46
- 2 COMMENTS
- /
- 0 LIKES
한 폼에 dbgrid가 7개가 있고 10개 정도의 에디트 박스가 있습니다. form의 onkeypress event에 아래와 같이 코딩을 했는데 디비그리드에서 엔터를 누르면 "invalid type cast" 라고 나오는 군요. 일일이 7개의 디비그리드를 if문을 주어...-
권민호•2000.08.30 09:36홍광기 wrote: > 한 폼에 dbgrid가 7개가 있고 10개 정도의 에디트 박스가 있습니다. > > form의 onkey...
-
최석기•2000.08.30 01:24안녕하세요.. 델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다. 님 Form의 KeyPress...
-
- heimdal
- •
- 2000.08.30 00:34
- 2 COMMENTS
- /
- 0 LIKES
-
김계성•2000.08.30 04:57heimdal wrote: > 디비에 다음과같이 데이터들이 있습니다.. > m start time stop time > a 15:03:20...
-
바사기몬•2000.08.30 04:40예제 형식을 보니 DB의 field가 string으로 잡힌것 같은데 맞나요? 그럼 결국 현재 시간을 예제 포멧으로 ...
-
- 조헌철
- 2000.08.30 00:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 이진우
- •
- 2000.08.30 02:00
- 2 COMMENTS
- /
- 0 LIKES
-
최창욱•2000.08.30 02:38이진우 wrote: > win2000환경에서 프로그램을 맹글었습니다.. 델파이5를 사용했구요! > 근데 win98이나 n...
-
델사랑•2000.09.02 17:07최창욱 wrote: > 이진우 wrote: > > win2000환경에서 프로그램을 맹글었습니다.. 델파이5를 사용했구요! ...
-
- 최재성
- 2000.08.29 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 푸우
- 2000.08.29 23:46
- 0 COMMENTS
- /
- 0 LIKES
> 한 폼에 dbgrid가 7개가 있고 10개 정도의 에디트 박스가 있습니다.
>
> form의 onkeypress event에 아래와 같이 코딩을 했는데 디비그리드에서
> 엔터를 누르면 "invalid type cast" 라고 나오는 군요.
> 일일이 7개의 디비그리드를 if문을 주어서 할 수도 없고
> 고수님들의 조언 바랍니다.
>
> if (key = #13) and (ActiveControl = (sender as TDbgrid)) Then
> begin
> Postmessage( (sender as TDbgrid).Handle,WM_keyDown,VK_TAB,0) ;
> end
> else if (key = #13) Then
> begin
> SelectNext(Activecontrol as Twincontrol,True,True) ;
> Key := #0 ;
> end ;
>
>
> 위의 경우에는(디비그리드에서 엔터칠경우만) invalid type cast 의 에러가 나오며
> 아래의 경우는 에러는 나지 않지만 엔터가 먹지 않네요.
>
> if (key = #13) and (ActiveControl = Tbdgrid(sender)) Then
> begin
> Postmessage( TDbgrid(Sender).Handle,WM_keyDown,VK_TAB,0) ;
> end
> else if (key = #13) Then
> begin
> SelectNext(Activecontrol as Twincontrol,True,True) ;
> Key := #0 ;
> end ;
>
>
아래와 같이 하면 될 것입니다.
if (key = #13) and (ActiveControl is Tbdgrid) Then
begin
Postmessage((ActiveControl as TDBGrid).Handle,WM_keyDown,VK_TAB,0) ;
end
else if (key = #13) Then
begin
SelectNext(Activecontrol as Twincontrol,True,True) ;
Key := #0 ;
end ;