Q&A

  • RadioGroup을 setfocus로
안녕하세요



델 초보자입니다.

질문은 에디터박스에서 엔터키를 누르면 그러니까 먼저 주소 를 입력하고



엔터를 치면 라디오그룹에서 4개중 하나를 선택하는데 주소를 입력한후

엔터를 치면 라디오그룹으로 setfocus를 줄려고 하는데



예문...

procedure TfrmHome.edt_addrKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key=vk_up then edt_zip.SetFocus;

if (key=vk_down) or (key=vk_return) then radiogroup.setfocus;



end;



라디오그룹으로 focus가 가질 않구 사라져 버립니다.



라디오그룹으로 focus를 주는 방법을 가르쳐 주세요



언젠가는 제가 답변할 날을 기대하며

델초보자 서비 드림

1  COMMENTS
  • Profile
    신인재 1999.08.09 23:11
    음....일딴은 RadioGroup의 Tab Stop을 True로 주시고

    ItemIndex 를 0이상으로 쎄팅해서 디폴트체킹을 하세요



    그리고 edit 의 keydown에서



    if key = VK_RETURN then then

    keybd_event(VK_TAB,MapVirtualkey(VK_TAB, 0),0, 0);

    keybd_event(VK_TAB,MapVirtualkey(VK_TAB, 0),KEYEVENTF_KEYUP, 0);

    keybd_event(VK_TAB,MapVirtualkey(VK_TAB, 0),0, 0);

    keybd_event(VK_TAB,MapVirtualkey(VK_TAB, 0),KEYEVENTF_KEYUP, 0);

    end;



    오용섭 께서 말씀하시기를...

    > 안녕하세요

    >

    > 델 초보자입니다.

    > 질문은 에디터박스에서 엔터키를 누르면 그러니까 먼저 주소 를 입력하고

    >

    > 엔터를 치면 라디오그룹에서 4개중 하나를 선택하는데 주소를 입력한후

    > 엔터를 치면 라디오그룹으로 setfocus를 줄려고 하는데

    >

    > 예문...

    > procedure TfrmHome.edt_addrKeyDown(Sender: TObject; var Key: Word;

    > Shift: TShiftState);

    > begin

    > if key=vk_up then edt_zip.SetFocus;

    > if (key=vk_down) or (key=vk_return) then radiogroup.setfocus;

    >

    > end;

    >

    > 라디오그룹으로 focus가 가질 않구 사라져 버립니다.

    >

    > 라디오그룹으로 focus를 주는 방법을 가르쳐 주세요

    >

    > 언젠가는 제가 답변할 날을 기대하며

    > 델초보자 서비 드림