Q&A

  • 엔터누를 때 탭누른것처럼 하려면?
비베에서는

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub

이렇게 하면 된다고 하더군요..

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then Key :=#9;
end;

그래서 델파이로 위와 같이 옮겼는데 탭을 누르면 SetFocus가 안되는군요.
일일이 콤포넌트마다 노가다성 작업하기 싫어서 머리를 굴리는데...
도와주세용..
1  COMMENTS
  • Profile
    [勳]후니 2004.05.18 21:27
    keyDown 이벤트에서

    if Key = vk_Reture then
      SelectNext(Sender As TWinControl , False, True);

    하면 됩니다...

    밑에 묻고 답하기에 많이 나와 있는건데..

    자료좀 찾아보시고 질문올려주시져...