نقل قول نوشته شده توسط babak_delphi مشاهده تاپیک
این کد در حقیقت برای رفتن به تب بعدی روی فرم است.


procedure Go_Next_Tab(Key : Char);

begin

  Try

    if (Key = #13) then

    begin

      PostMessage(Screen.ActiveForm.Handle, WM_NEXTDLGCTL, 0, 0);

      Key := #0;

    end;

  Except

    Application.MessageBox(' !!! یک اشکال ناشناخته در روند انجام کار پیش آمده است  ','ERROR',MB_OK + MB_ICONERROR);

  end;

end;
مي توانيد مثالي بياوريد