아구....안녕들 하세요...



다름이 아니라



cell[0,0]에서 어떤 값을 입력하고 엔터를 치면



cell[0,1]로 이동하고 싶고, 거기서 또 어떤 값을 입력하고



엔터를 치면 역시 다음 셀로 이동하고 싶죠....그렇게 정해지지 않은



셀들에 대해 처리하고 싶은데,....



근데...ㅜㅜ



잘 안되네요...엉엉~



SendMessage()나 keybd_event()를 써도 잘 안되는데



어찌 해야 될까요....ㅠㅠ



많은 조언 부탁드립니다.

정연광 wrote:

> 안녕하세요. 저의 질문에 딱 맞는 답을 해 주셨으면 좋겠습니다.

> 초보거든요....

> 스트링그리드에서 내가 원하는 열만 칠을 해주었으면 하는데요.

> 예를 들면

> 4,8,12,16,20.......Row만 다른색깔로 칠을 하고 싶거든요

> 도와주세요....



type

TDrawCellEvent = procedure (Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState) of object;

property OnDrawCell: TDrawCellEvent;



의 그리드 이벤트를 사용하면 됩니다.

자세한건 VCL 도움말을 반드시 참고하십시요.

한 께서 말씀하시기를...

> 아구....안녕들 하세요...

>

> 다름이 아니라

>

> cell[0,0]에서 어떤 값을 입력하고 엔터를 치면

>

> cell[0,1]로 이동하고 싶고, 거기서 또 어떤 값을 입력하고

>

> 엔터를 치면 역시 다음 셀로 이동하고 싶죠....그렇게 정해지지 않은

>

> 셀들에 대해 처리하고 싶은데,....

>

> 근데...ㅜㅜ

>

> 잘 안되네요...엉엉~

>

> SendMessage()나 keybd_event()를 써도 잘 안되는데

>

> 어찌 해야 될까요....ㅠㅠ

>

> 많은 조언 부탁드립니다.







아구....



자문자답이네요...헤헤



그리고 최석기님이 올려주신게 더 좋네요...



오늘 여기서 한수 배웁니다.



If Key = #13 then

begin

SetForeGroundWindow(griSu.Handle);

keybd_event(VK_RIGHT, 0, 0, 0);

keybd_event(VK_RIGHT, 0, KEYEVENTF_KEYUP, 0);

end;



저는 이렇게 처리했었는데, 최석기님 쓰신게 더 남이 듭니다.



그분께 다시 한번 고맙다는 말을 전해드리고 싶네요...



넙죽~

한 께서 말씀하시기를...

> 아구....안녕들 하세요...

>

> 다름이 아니라

>

> cell[0,0]에서 어떤 값을 입력하고 엔터를 치면

>

> cell[0,1]로 이동하고 싶고, 거기서 또 어떤 값을 입력하고

>

> 엔터를 치면 역시 다음 셀로 이동하고 싶죠....그렇게 정해지지 않은

>

> 셀들에 대해 처리하고 싶은데,....

>

> 근데...ㅜㅜ

>

> 잘 안되네요...엉엉~

>

> SendMessage()나 keybd_event()를 써도 잘 안되는데

>

> 어찌 해야 될까요....ㅠㅠ

>

> 많은 조언 부탁드립니다.



스트링그리드에서 셀간의 엔터키 이동이라면 다음과 같이 하면 될꺼 같은데요..



procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = VK_RETURN then begin

key := 0;

with TStringGrid(Sender) do begin

if Col < (ColCount - 1) then

Col := Col + 1

else begin

if (Row < RowCount - 1) then

Row := Row + 1;

Col := FixedCols;

end;

end;

end;

end;