Q&A

  • EditExit 이벤트..........
폼에 에디트하고 버튼하고 있는데요



EditExit 이벤트에 ................



조건을.....

if (Edit1.Text = '') then

Edit1.Setfocus; 라고 했는데요.....



여기서 Edit1에 갔다가 기냥 종료버튼을 누루려고 하는데요....



포커스가 Edit1에서 빠져나오지 못하고 종료버튼 클릭이 안되거든요...



이런경우 어떻게 해야하는지 아세요? 아시는분 빨리 좀 가리쳐주세요!!



2  COMMENTS
  • Profile
    조덕진 2001.01.18 03:16
    왕초보 wrote:

    > 폼에 에디트하고 버튼하고 있는데요

    >

    > EditExit 이벤트에 ................

    >

    > 조건을.....

    > if (Edit1.Text = '') then

    > Edit1.Setfocus; 라고 했는데요.....

    >

    > 여기서 Edit1에 갔다가 기냥 종료버튼을 누루려고 하는데요....

    >

    > 포커스가 Edit1에서 빠져나오지 못하고 종료버튼 클릭이 안되거든요...

    >

    > 이런경우 어떻게 해야하는지 아세요? 아시는분 빨리 좀 가리쳐주세요!!

    >



    안녕하세요. 델초보 조덕진입니다.

    > if (Edit1.Text = '') then

    > Edit1.Setfocus;

    본 코딩을 OnKeyPress에 하시는 것이 좋겠네요.

    if (Edit1.Text = '') and (key = #13) then // 값을 넣지 않고 엔터키를 입력한 경우

    Edit1.SetFocus;

    위의 코딩으로 하시면, 종료버튼을 누를 수 있습니다.

    답변이 됐는지 모르겠네요..



    그럼.. 즐코되세요..

  • Profile
    지영일 2001.01.18 20:54
    제가 쓰는 방식입니다.

    어설픈 코딩이지만..도움이 되었으면 하는 바램으로.

    좋은 하루 되세요..



    >>> Edit1 exit 이벤트

    var

    iChk : Integer;

    begin

    if ActiveControl <> CancelBtn then

    begin

    iChk := StrToIntDef(Edit1.Text, 0);

    if (Length(Edit1.Text) <> 3) or (iChk = 0) then

    ActiveControl := Edit1;

    end;

    end;





    조덕진 wrote:

    > 왕초보 wrote:

    > > 폼에 에디트하고 버튼하고 있는데요

    > >

    > > EditExit 이벤트에 ................

    > >

    > > 조건을.....

    > > if (Edit1.Text = '') then

    > > Edit1.Setfocus; 라고 했는데요.....

    > >

    > > 여기서 Edit1에 갔다가 기냥 종료버튼을 누루려고 하는데요....

    > >

    > > 포커스가 Edit1에서 빠져나오지 못하고 종료버튼 클릭이 안되거든요...

    > >

    > > 이런경우 어떻게 해야하는지 아세요? 아시는분 빨리 좀 가리쳐주세요!!

    > >

    >

    > 안녕하세요. 델초보 조덕진입니다.

    > > if (Edit1.Text = '') then

    > > Edit1.Setfocus;

    > 본 코딩을 OnKeyPress에 하시는 것이 좋겠네요.

    > if (Edit1.Text = '') and (key = #13) then // 값을 넣지 않고 엔터키를 입력한 경우

    > Edit1.SetFocus;

    > 위의 코딩으로 하시면, 종료버튼을 누를 수 있습니다.

    > 답변이 됐는지 모르겠네요..

    >

    > 그럼.. 즐코되세요..