Q&A

  • 동적생성 콤포에서 이벤트 사용할 수 있나요 ?
동적으로 Editbox를 10개정도 생성했습니다.

그런데 문제는 맨 처음 생성한 Editbox로 Focus로

이동은 했는데 Enter Key를 치면 다음 Editbox로 Focus를 이동

하려고 하는데 어떤 방법으로 Focus를 이동시킬 수 있나요 ?

1  COMMENTS
  • Profile
    홍성락 2001.12.05 05:53
    초보 wrote:

    > 동적으로 Editbox를 10개정도 생성했습니다.

    > 그런데 문제는 맨 처음 생성한 Editbox로 Focus로

    > 이동은 했는데 Enter Key를 치면 다음 Editbox로 Focus를 이동

    > 하려고 하는데 어떤 방법으로 Focus를 이동시킬 수 있나요 ?

    /////////////////////////////////////////////////////////////////

    폼 클래스에 procedure EditKeyPress(Sender: TObject; var Key: Char);를 선언하구요.

    procedure TMainForm.EditKeyPress(Sender: TObject; var Key: Char);

    begin

    if Key=#13 then

    SelectNext(Sender As TWinControl,True,True);

    end;

    를 넣구요.

    Editbox를 생성할때,

    Edt.OnKeyPress := EditKeyPress;

    Edt.TabOrder := 0; //0~10 순으로

    Edt.TabStop := True;