Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Фокусы [D7, WinME]

new developer © (2004-08-10 21:05:00)
надо по нажатию 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;

new developer (2004-08-10 21:44:00) [1]
Расставил циферки в TabOrder по порядку и пошел процесс, спасибо!

begin...end (2004-08-10 21:38:00) [2]

> Есть

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

begin...end (2004-08-10 21:38:00) [3]

> элемента

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

new developer (2004-08-10 21:35:00) [4]
Есть, но помимо того что я назвал он еще прыгает в не нужные обьекты,

begin...end (2004-08-10 21:33:00) [5]
Не работает, потому что Form.KeyPreview <> True.

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

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

new developer (2004-08-10 21:26:00) [6]
Тем способом что я написал нечего не работает, TabOrder есть у PageControl, а как им пользоваться?

begin...end (2004-08-10 21:20:00) [7]
Во-первых, в чём вопрос?
Во-вторых, свойства TabOrder у этих компонентов тоже нет?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »