아실지 모르겠으나 Edit에서는 다음과 같이 하면 그 Edit의 Maxlength만큼 입력이 되면
자동으로 다음 객체로 Focus가 이동 합니다. Maxlength가 중요합니다.
그러나 그리드에서는 어떨지 모르겠습니다. 해보질 않아서요.
아래의 코드를 Field 또는 Grid에 적용시켜서 한번 응용해 보시기 바랍니다.
잘 되면 여러사람에게 도움이 될 테니 결과도 적어주시기 부탁합니다.
<!--CodeS-->
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Sender as TDBEdit).Selstart=(Sender as TDBEdit).MaxLength then
SelectNext(ActiveControl as TwinControl, True, True);
end;
<!--CodeE-->
아실지 모르겠으나 Edit에서는 다음과 같이 하면 그 Edit의 Maxlength만큼 입력이 되면
자동으로 다음 객체로 Focus가 이동 합니다. Maxlength가 중요합니다.
그러나 그리드에서는 어떨지 모르겠습니다. 해보질 않아서요.
아래의 코드를 Field 또는 Grid에 적용시켜서 한번 응용해 보시기 바랍니다.
잘 되면 여러사람에게 도움이 될 테니 결과도 적어주시기 부탁합니다.
<!--CodeS-->
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Sender as TDBEdit).Selstart=(Sender as TDBEdit).MaxLength then
SelectNext(ActiveControl as TwinControl, True, True);
end;
<!--CodeE-->