Фокусы

← →
new developer (2004-08-10 21:05) [0]

надо по нажатию TAB делать фокус на элементе по кругу расположенных на Form1, если быть более точным то все эти обьекты расположенны на Tabsheet1 обьекта PageControl1, но никто из них не имеет событий клавиатуры:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key) = vk_tab then
Begin
if edit5.focused then maskedit1.SetFocus;
if maskedit1.focused then edit1.setfocus;
if edit1.Focused then maskedit2.setfocus;
if maskedit2.focused then maskedit3.setfocus;
if maskedit3.focused then memo1.setfocus;
if memo1.Focused then edit5.setfocus;
End;
end;

← →
begin...end © (2004-08-10 21:20) [1]

Во-первых, в чём вопрос?
Во-вторых, свойства TabOrder у этих компонентов тоже нет?

← →
new developer (2004-08-10 21:26) [2]

Тем способом что я написал нечего не работает, TabOrder есть у PageControl, а как им пользоваться?

← →
begin...end © (2004-08-10 21:33) [3]

Не работает, потому что Form.KeyPreview <> True.

> TabOrder есть у PageControl, а как им пользоваться

А у TEdit, TMaskEdit и TMemo его нет?

← →
new developer (2004-08-10 21:35) [4]

Есть, но помимо того что я назвал он еще прыгает в не нужные обьекты,

← →
begin...end © (2004-08-10 21:38) [5]

> Есть

Ну так вот и воспользуйся им - у каждого следующего элемента TabOrder должен быть на единицу больше.

> элемента

В смысле, компонента.

← →
new developer (2004-08-10 21:44) [7]

Расставил циферки в TabOrder по порядку и пошел процесс, спасибо!

Фокусы Найти похожие ветки