안녕하세요

combobox에서 리턴키 눌러지면 다음 combox2로 이동되도록 하는것은 아래와 같이 하면 되는데...

procedure Tmaster_input2.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
  combobox2.setfocus;
end;
end;

문제점은 combobox가 20개정도 되는데 이런식으로 다 입력 할 수도 없구 좋은 방법이 없나요?

edit경우는 findcomponent로 되던데...combobox에서는 이게 안 먹네요..ㅜㅜ

그래서 생각 한것이 이런식으로 하려구 하는데....어떻게 해야 되는지 모르겠네요.

procedure Tmaster_input2.ComboBox1KeyPress(Sender: TObject; var Key: Char);
var
aaa : integer;
begin
if key = #13 then
begin
  aaa := strtoint(copy(Activecontrol.Name, 9, 2))+1;
  TComboBox(aaa).setfocus;
end;
end;

그럼 좋은 하루되세요...^^