냉혈이 wrote:

> TEdit의 keydown, keypress이벤트에서

> tab키를 사용할수있는 방법이 있을것 같은데...

> 워낙 초보인관계로.... T.T 다른 편법으로 사용할라구했는데...

> 프로그램이 매끄럽지 못한거 같아서... 방법을 찾았는데...

> 안되네여.... 혹시 초절정의 고수님들 중에서 알고 계신분들은

> 갈켜주세염... ^^

....



이재식 Wrote :

안녕하세요?



님께서 나름대로 편법(대안)이 있다고 생각하는데요,

님께서 생각하신 대안은 어떤것인지 알고 싶군요.



저는 이런 대안을 제시합니다.

가령, Form에 Edit1과 Edit2가 있다고 합시다.

Edit1에서 tab키를 누르면 Edit2로 갑니다.

그런데, Edit1의 keydown이벤트에서 단순히 if key = vk_tab then ....

이런식으로하면 안되는거 아시죠?

tab키를 누르면 보통 CM_DIAOGKEY메시지가 발생해요.

그래서, 이걸 이용하고요,

그리고, Edit1에서 tab키를 누르면 Edit2로 포커스가 가니까,

Edit2가 Focus가 가졌느냐를 따지면

결국 Edit1에서 tab키를 누를때 그 순간을 알수 있고요, 응당 포커스 이동을 하지 않게

할수 있는 것이죠.

아래에, 샘플을 작성했습니다.

그저... 소인은 님에게 도움되기를 바랍니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

private

{ Private declarations }

procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.CMDialogKey(var Message: TCMDialogKey);

begin

inherited;



if (Message.CharCode = vk_Tab) and (Edit2.Focused) then

Edit1.SetFocus ;



DefaultHandler(Message) ;



end;



end.

이재식 wrote:

> 냉혈이 wrote:

> > TEdit의 keydown, keypress이벤트에서

> > tab키를 사용할수있는 방법이 있을것 같은데...

> > 워낙 초보인관계로.... T.T 다른 편법으로 사용할라구했는데...

> > 프로그램이 매끄럽지 못한거 같아서... 방법을 찾았는데...

> > 안되네여.... 혹시 초절정의 고수님들 중에서 알고 계신분들은

> > 갈켜주세염... ^^

> ....

>

> 이재식 Wrote :

> 안녕하세요?

>

> 님께서 나름대로 편법(대안)이 있다고 생각하는데요,

> 님께서 생각하신 대안은 어떤것인지 알고 싶군요.

>

> 저는 이런 대안을 제시합니다.

> 가령, Form에 Edit1과 Edit2가 있다고 합시다.

> Edit1에서 tab키를 누르면 Edit2로 갑니다.

> 그런데, Edit1의 keydown이벤트에서 단순히 if key = vk_tab then ....

> 이런식으로하면 안되는거 아시죠?

> tab키를 누르면 보통 CM_DIAOGKEY메시지가 발생해요.

> 그래서, 이걸 이용하고요,

> 그리고, Edit1에서 tab키를 누르면 Edit2로 포커스가 가니까,

> Edit2가 Focus가 가졌느냐를 따지면

> 결국 Edit1에서 tab키를 누를때 그 순간을 알수 있고요, 응당 포커스 이동을 하지 않게

> 할수 있는 것이죠.

> 아래에, 샘플을 작성했습니다.

> 그저... 소인은 님에게 도움되기를 바랍니다.

>

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls;

>

> type

> TForm1 = class(TForm)

> Edit1: TEdit;

> Edit2: TEdit;

> private

> { Private declarations }

> procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.CMDialogKey(var Message: TCMDialogKey);

> begin

> inherited;

>

> if (Message.CharCode = vk_Tab) and (Edit2.Focused) then

> Edit1.SetFocus ;

>

> DefaultHandler(Message) ;

>

> end;

>

> end.

>

35413번의 가시면 원하시는 것을 구할수 있을거라 보는데요..

좀 귀찮아서 이렇게 번호가 알려드려 죄송합니다..

좋은 하루 보내시구요..





냉혈이 wrote:

> TEdit의 keydown, keypress이벤트에서

> tab키를 사용할수있는 방법이 있을것 같은데...

> 워낙 초보인관계로.... T.T 다른 편법으로 사용할라구했는데...

> 프로그램이 매끄럽지 못한거 같아서... 방법을 찾았는데...

> 안되네여.... 혹시 초절정의 고수님들 중에서 알고 계신분들은

> 갈켜주세염... ^^....

KeyDown과 KeyPress 이벤트에서는 TAB키를 못잡아서여...

KeyUp이벤트에서는 TAB키의 값을 잡기는 하는데여....

그런데.. Up이벤트는... 그 전의 콤포넌트에서 일어난것을 잡은것이니 필요가 없겠죠...

이정도면 제대로 이해하실수있는지요... ???

답변좀 언능해주세여... T.T





지영일 wrote:

> 35413번의 가시면 원하시는 것을 구할수 있을거라 보는데요..

> 좀 귀찮아서 이렇게 번호가 알려드려 죄송합니다..

> 좋은 하루 보내시구요..

>

>

> 냉혈이 wrote:

> > TEdit의 keydown, keypress이벤트에서

> > tab키를 사용할수있는 방법이 있을것 같은데...

> > 워낙 초보인관계로.... T.T 다른 편법으로 사용할라구했는데...

> > 프로그램이 매끄럽지 못한거 같아서... 방법을 찾았는데...

> > 안되네여.... 혹시 초절정의 고수님들 중에서 알고 계신분들은

> > 갈켜주세염... ^^....