Q&A
- stringgrid 에서 포커스 이동시에...
네가지 질문입니다.
1. stringgrid의 keypress이벤트에서 아래화살표키(#40) 가 안먹는 이유는?
2. stringgrid포커스 이동시 특정열 전체에 대하여 포커스 안가게 하려면?
예를 들면 5개의 열이 있을때 두번재 열을 포커스 안먹게 하여
첫번째 열에서 우측으로 한셀이동하면 두번째열 건너뛰고 세번재 열로 바로 포커스 이동하고 반대로
세번째 열에서 좌측으로 한셀 이동하면 두번째열 건너뛰고 첫번째 열로 바로 포커스 이동하게끔 말이죠..
3. stringGrid포커스 이동시 특정행 전체에 대하여 포커스 안가게 하려면?
2 번질문의 반대 경우 입니다.
4. 맨마지막 행에서 아래화살표 키를 누른후 다시 위 화살표키를 눌렀을때 원상태로 포커스로 이동하게 하려면?
예를 들면 4행 5열의 스트링그리드에 값을 뿌려주었을때
4번째 행에서 아래화살표 키가 keydown이벤트에서 발생했을때 빈행을 하나 더 만들어 줍니다.
그러면 5개의 행이 생기죠 그담에 다시 위 화살표 키가 keydown이벤트에서 발생하였을때
5번째 행을 없애고 4개 행으로 다시 바꾸어주면 포커스가 4번째가 아닌 세번째행으로 건너뜁니다.
이것을 4번째로 원상복귀 시키려고하는거죠.. 이에대한 코드는 아래를 참조하십시요..
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_Down then
begin
if stringgrid1.Row = stringgrid1.Rowcount-1 then
begin
stringgrid1.RowCount := stringgrid1.RowCount + 1;
end;
end
else if Key = VK_UP then
begin
if stringgrid1.Row = stringgrid1.Rowcount-1 then
begin
stringgrid1.RowCount := stringgrid1.RowCount - 1;
end;
end;
end;
이상 질문에 대해 답변 주시면 감사하겠습니다.
그럼 좋은 하루 되세요...
1. stringgrid의 keypress이벤트에서 아래화살표키(#40) 가 안먹는 이유는?
2. stringgrid포커스 이동시 특정열 전체에 대하여 포커스 안가게 하려면?
예를 들면 5개의 열이 있을때 두번재 열을 포커스 안먹게 하여
첫번째 열에서 우측으로 한셀이동하면 두번째열 건너뛰고 세번재 열로 바로 포커스 이동하고 반대로
세번째 열에서 좌측으로 한셀 이동하면 두번째열 건너뛰고 첫번째 열로 바로 포커스 이동하게끔 말이죠..
3. stringGrid포커스 이동시 특정행 전체에 대하여 포커스 안가게 하려면?
2 번질문의 반대 경우 입니다.
4. 맨마지막 행에서 아래화살표 키를 누른후 다시 위 화살표키를 눌렀을때 원상태로 포커스로 이동하게 하려면?
예를 들면 4행 5열의 스트링그리드에 값을 뿌려주었을때
4번째 행에서 아래화살표 키가 keydown이벤트에서 발생했을때 빈행을 하나 더 만들어 줍니다.
그러면 5개의 행이 생기죠 그담에 다시 위 화살표 키가 keydown이벤트에서 발생하였을때
5번째 행을 없애고 4개 행으로 다시 바꾸어주면 포커스가 4번째가 아닌 세번째행으로 건너뜁니다.
이것을 4번째로 원상복귀 시키려고하는거죠.. 이에대한 코드는 아래를 참조하십시요..
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_Down then
begin
if stringgrid1.Row = stringgrid1.Rowcount-1 then
begin
stringgrid1.RowCount := stringgrid1.RowCount + 1;
end;
end
else if Key = VK_UP then
begin
if stringgrid1.Row = stringgrid1.Rowcount-1 then
begin
stringgrid1.RowCount := stringgrid1.RowCount - 1;
end;
end;
end;
이상 질문에 대해 답변 주시면 감사하겠습니다.
그럼 좋은 하루 되세요...
2
COMMENTS
-
-
답변 주셔서 감사합니다.
4번 답안에 대해서는 Grid index out of range 오류가 뜨네요...
아마도 먼저 스트링그리드 내부에서 위화살표키를 적용시킨 후
다시금 RowCount-1을 해주니 한칸 건너뛰어 위로 포커스가 이동하는것 같네요..
에구 모르겠다 포기해야지..
(NOTICE) You must be logged in to comment on this post.
-
- sonwow
- •
- 2001.03.27 04:11
- 1 COMMENTS
- /
- 0 LIKES
-
쭉쭉빵빵•2001.03.27 12:31질문의 요지를 잘모르겠네요. 그러나 일단 제 질문의 답이 없어서 제가 아는 만큼 적을께요. Select ...
-
- 짝돌이
- 2001.03.27 03:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.03.27 03:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 쌩초보
- 2001.03.27 03:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 또라이
- •
- 2001.03.27 03:25
- 1 COMMENTS
- /
- 0 LIKES
-
쭉쭉빵빵•2001.03.27 12:17일단 TChart를 쓰라고 권하고 싶네요. 라인이 둘이라고 가정하고 1. chart1 Min, Max 설정방법 ch...
-
- 델파초짜..
- •
- 2001.03.27 03:25
- 3 COMMENTS
- /
- 0 LIKES
-
mafioso•2001.03.27 03:38우하하... 우선 제가 아는 질문이 있어서 뿌듯하네요. 결론은 OnClose 이벤트에서 ==> Action := caFr...
-
델파초짜..•2001.03.27 03:47답변 감사 드립니다.. 그런데.. Action := caFree; 를 OnClose 이벤트에 써 줬더니.. 닫기를 하면 폼이...
-
mafioso•2001.03.27 05:01처음에 질문하신 것과는 반대의 경우네요. Action := caFree; 하면 폼은 메모리에서 해제됩니다. 고로 그...
-
- 강동희
- •
- 2001.03.27 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
쭉쭉빵빵•2001.03.27 11:56제가 볼때는 마스터가 trans.DB인거 같네요. 즉 shop 과 item은 코드 테이블 정도의 의미이고요 Sele...
-
- 정병화
- 2001.03.27 02:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 또 궁금이
- 2001.03.27 02:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 최창환
- 2001.03.27 01:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 질문
- 2001.03.27 01:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보델파이...
- •
- 2001.03.27 01:15
- 2 COMMENTS
- /
- 0 LIKES
-
답변•2001.03.27 02:40tab키는 폼의 CM_DialogKey 윈도우메시지에 반응합니다. 그래서 저놈을 vk_tab일때 상속받으면 됩니다. ...
-
냐엉•2001.03.27 02:07VK_TAB onkeydown 이벤트에 아래와 같이 넣으면 > > 엔터를 눌렀을때 이벤트 이잖아요!.... > > i...
-
- 질문
- •
- 2001.03.27 01:03
- 2 COMMENTS
- /
- 0 LIKES
네가지 질문입니다. 1. stringgrid의 keypress이벤트에서 아래화살표키(#40) 가 안먹는 이유는? 2. stringgrid포커스 이동시 특정열 전체에 대하여 포커스 안가게 하려면? 예를 들면 5개의 열이 있을때 두번재 열을 포커스 안먹게 하여 첫...-
솔뫼마당•2001.03.27 23:221. OnKeyPress에서 아래화살표 비교방법 if Key = Chr(VK_DOWN) then : 으로 처리하...
-
질문•2001.03.28 00:26답변 주셔서 감사합니다. 4번 답안에 대해서는 Grid index out of range 오류가 뜨네요... 아마도 먼...
-
- 저기요*^.^*
- •
- 2001.03.28 11:27
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.03.28 11:28저기요*^.^* wrote: > 조건에 따라 데이터를 검색한 다음 버튼을 누르면 리포트를 출력할 수 있게 > 하...
-
- 콩새
- 2001.03.26 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 쭈꾸미
- •
- 2001.03.26 23:59
- 4 COMMENTS
- /
- 0 LIKES
-
danger•2001.03.28 01:30이럴땐 인라인 뷰를 사용하세용... 아래의 예처럼 하심 가늘할껄용.. join은 key 순으로 하시고용...(...
-
쭈꾸미•2001.03.28 21:24^^ 아이구 이거 정말 고맙습니다. 돔이 되다 마다요... 감사 합니다.
-
쭉쭉빵빵•2001.03.27 13:29옛날 오라클에서는 최근 data table를 만들어서 'cost_new'라고 가정하고 field는 c_date, c_seq, c_...
-
쭉쭉빵빵•2001.03.27 12:59힘든 문제 입니다. 요즘은 어떻게 하는지를 잘모르겠네요. 일단 제가 했던 방법을 적겠어요. 3년...
-
- hyun
- 2001.03.26 23:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 천사양아
- •
- 2001.03.26 23:26
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.26 23:40안녕하세요. 최용일입니다. 콤보박스에서 드랍했을때 나타나는 윈도가 어떤 객체에서 파생됐는지는 잘 ...
-
천사양아•2001.03.27 03:35.
-
- 느티나무
- 2001.03.26 23:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 이돌람바
- •
- 2001.03.26 22:21
- 1 COMMENTS
- /
- 0 LIKES
-
한원희•2001.03.27 20:27아마도 소켓 연결이 미리 끊어져서 그런것은 아닐런지 모르겠습니다.(추측 -_-) Disconnect 부분을 if ...
if Key = Chr(VK_DOWN) then
:
으로 처리하시고
2. 특정 열 포커스 안먹게 하려면
일단 이전에 들어온 키 값이 Left Arrow 였는지 Right Arrow 였는지를 저장하는
변수를 선언하여 OnKeyDown 에서 저장해 두십시오.
그런다음, OnSelectCell에서
if ACol = 2 then
if AKey = VK_RIGHT then
StringGrid1.Col := StringGrid1.Col + 1
else if AKey = VK_LEFT then
StringGrid1.Col := StringGrid1.Col - 1;
로 처리해 보십시오. (만약, 잘 안되면 이것을 적절히 응용해 보시구요.
오래전에 사용하던 거라 정확하지는 않지만, OnSelectCell에서 처리하는 건
분명합니다.)
3. 위의 2. 참조하시기 바랍니다.
4. OnKeyDown에서
if Key = VK_DOWN then
if StringGrid1.Row = StringGrid1.RowCount-1 then
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Row := StringGrid1.RowCount - 1;
end
else if Key = VK_UP then
if StringGrid1.Row = StringGrid1.RowCount-1 then
begin
StringGrid1.RowCount := StringGrid1.RowCount - 1;
StringGrid1.Row := StringGrid1.RowCount - 1;
end;
와 같이 하시면 되지 않을까요? (예전에 하던 것이지만 대략 아래위로 문장을
바꿔 가면서 해보시기 바랍니다.)
질문 wrote:
> 네가지 질문입니다.
>
> 1. stringgrid의 keypress이벤트에서 아래화살표키(#40) 가 안먹는 이유는?
>
> 2. stringgrid포커스 이동시 특정열 전체에 대하여 포커스 안가게 하려면?
> 예를 들면 5개의 열이 있을때 두번재 열을 포커스 안먹게 하여
> 첫번째 열에서 우측으로 한셀이동하면 두번째열 건너뛰고 세번재 열로 바로 포커스 이동하고 반대로
> 세번째 열에서 좌측으로 한셀 이동하면 두번째열 건너뛰고 첫번째 열로 바로 포커스 이동하게끔 말이죠..
>
> 3. stringGrid포커스 이동시 특정행 전체에 대하여 포커스 안가게 하려면?
> 2 번질문의 반대 경우 입니다.
>
> 4. 맨마지막 행에서 아래화살표 키를 누른후 다시 위 화살표키를 눌렀을때 원상태로 포커스로 이동하게 하려면?
> 예를 들면 4행 5열의 스트링그리드에 값을 뿌려주었을때
> 4번째 행에서 아래화살표 키가 keydown이벤트에서 발생했을때 빈행을 하나 더 만들어 줍니다.
> 그러면 5개의 행이 생기죠 그담에 다시 위 화살표 키가 keydown이벤트에서 발생하였을때
> 5번째 행을 없애고 4개 행으로 다시 바꾸어주면 포커스가 4번째가 아닌 세번째행으로 건너뜁니다.
> 이것을 4번째로 원상복귀 시키려고하는거죠.. 이에대한 코드는 아래를 참조하십시요..
>
> procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
> begin
> if Key = VK_Down then
> begin
> if stringgrid1.Row = stringgrid1.Rowcount-1 then
> begin
> stringgrid1.RowCount := stringgrid1.RowCount + 1;
> end;
> end
> else if Key = VK_UP then
> begin
> if stringgrid1.Row = stringgrid1.Rowcount-1 then
> begin
> stringgrid1.RowCount := stringgrid1.RowCount - 1;
> end;
> end;
> end;
>
> 이상 질문에 대해 답변 주시면 감사하겠습니다.
> 그럼 좋은 하루 되세요...
>
>
>