sonwow wrote:

> key press..............

> if key = #13 then

> key := #0;

> key down...............

> if key = vk_return then

> key := 0;

> 문제점.

> key press는 엔터기로 다음 포커스로 이동만 하지만,

> key down는 초기화가 안되는지 포커스로 이동 실행모드까지 가는 현상.

> 어떻게 해야하나요.

> -------------------------------------------------------

> key press는 항목별 입력제한이벤트를 주고, key down은 항목이동 효과를

> 주려고하는데,

> 이거야 keypress,keydown하나의 이벤트에서 다처리해야하나요,,,,

>

하이요^^

몇자 적어보자면요.

Key 이벤트 발생은 ... Key Press --> Key Down --> Key Up 이런순으로 발생하잖아요.



님이 말씀한대로 Key Press에서 키 제한을 둬도 Key Press이벤트만 작동이 안되고

다음으로 Key Down, Key Up 이벤트가 발생하죠.

그래서 Key Press에서 해당키를 죽일려면 Abort 명령을 써보세요.

그럼 Key Down, Key Up 이벤트는 발생 안합니다.

그럼, 즐코~

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

Shift: TShiftState);

begin

if Key = vk_return then

begin

Key := 0;

with Grid do begin

if Col < ColCount-1 then //다음 column

Col := Col + 1

else if Row < RowCount-1 then //다음 Row

begin

Row := Row + 1;

Col := 1;

end

else

begin //Grid의 끝이면 row 생성

rowcount := rowcount + 1;

row := rowcount - 1;

col := 1;

end;

end;

end;

end;

=========================================

위의 소스에서 포커스뿐아니라 에디트상태까지가는게 문제입니다.

그런데 key press를 사용하면, 포커스만 이동되는데,

참 답답합니다...

도움바랍니다..... keypress를 그냥쓰려니까, 키 입력제한을 두려고 하느데,

......

아무튼 도움주세요

sonwow wrote:

> key press..............

> if key = #13 then

> key := #0;

> key down...............

> if key = vk_return then

> key := 0;

> 문제점.

> key press는 엔터기로 다음 포커스로 이동만 하지만,

> key down는 초기화가 안되는지 포커스로 이동 실행모드까지 가는 현상.

> 어떻게 해야하나요.

> -------------------------------------------------------

> key press는 항목별 입력제한이벤트를 주고, key down은 항목이동 효과를

> 주려고하는데,

> 이거야 keypress,keydown하나의 이벤트에서 다처리해야하나요,,,,

>





안녕하세여 바보감자입니다.

소스를 올려주면 더 자세히 답변해드릴수있을텐데..

제생각에는 exit 하나면 간단할꺼같은데여...

key down 에 실행문에 exit 하나 넣어보시고..실행 해보세요..그럼..

즐코 하세여 ~~~ ^^허접 답변이였습네다

바보감자 wrote:

> sonwow wrote:

> > key press..............

> > if key = #13 then

> > key := #0;

> > key down...............

> > if key = vk_return then

> > key := 0;

> > 문제점.

> > key press는 엔터기로 다음 포커스로 이동만 하지만,

> > key down는 초기화가 안되는지 포커스로 이동 실행모드까지 가는 현상.

> > 어떻게 해야하나요.

> > -------------------------------------------------------

> > key press는 항목별 입력제한이벤트를 주고, key down은 항목이동 효과를

> > 주려고하는데,

> > 이거야 keypress,keydown하나의 이벤트에서 다처리해야하나요,,,,

> >

>

>

> 안녕하세여 바보감자입니다.

> 소스를 올려주면 더 자세히 답변해드릴수있을텐데..

> 제생각에는 exit 하나면 간단할꺼같은데여...

> key down 에 실행문에 exit 하나 넣어보시고..실행 해보세요..그럼..

> 즐코 하세여 ~~~ ^^허접 답변이였습네다

>

>

>

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

Shift: TShiftState);

begin

if Key = vk_return then

begin

Key := 0;

with Grid do begin

if Col < ColCount-1 then //다음 column

Col := Col + 1

else if Row < RowCount-1 then //다음 Row

begin

Row := Row + 1;

Col := 1;

end

else

begin //Grid의 끝이면 row 생성

rowcount := rowcount + 1;

row := rowcount - 1;

col := 1;

end;

end;

end;

end;

=========================================

위의 소스에서 포커스뿐아니라 에디트상태까지가는게 문제입니다.

그런데 key press를 사용하면, 포커스만 이동되는데,

참 답답합니다...

도움바랍니다..... keypress를 그냥쓰려니까, 키 입력제한을 두려고 하느데,

......

아무튼 도움주세요