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

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

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

KeyPress [D7, XP]

MIXER © (2006-01-26 14:31:00)
Мастера подскажите почему с Edit1 прыгает сразу на Edit3 без остановки нa Edit2
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure AllEditsKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);

procedure TForm1.AllEditsKeyPress(Sender: TObject; var Key: Char);
begin
if Key =#13 then
begin
Form1.SelectNext(Sender as TWinControl,True,True);
Key :=#0;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.OnKeyPress :=AllEditsKeyPress;
Edit2.OnKeyPress :=AllEditsKeyPress;
Edit3.OnKeyPress :=AllEditsKeyPress;

ЮЮ (2006-01-27 10:58:00) [1]

> в том и базар что все едиты лежат рядом (parent)

Почему-то этому довнрия больше:

> Плохиш © (26.01.06 18:57) [7]

MIXER (2006-01-27 10:50:00) [2]
в том и базар что все едиты лежат рядом (parent)
Asoftу-"ветка не найдена"

Джо (2006-01-27 06:24:00) [3]
> [7] Плохиш © (26.01.06 18:57)
> Нас опять разводят на телепаторы :-(

А не привыкать! ;)

ASoft (2006-01-27 04:17:00) [4]
to MIXER:
мож это подойдет: http://www.delphimaster.ru/cgi-bin/forum.pl?id=1137328158&n=18

ЮЮ (2006-01-27 03:28:00) [5]
А они все одного и того же Parent-а имеют? Может 1 и 3 лежат на одном, а 2-й на другом?

Плохиш (2006-01-26 18:57:00) [6]
Нас опять разводят на телепаторы :-(
Сделал форму, кинул 3 едита, скопировал код из [0] - всё работает.
Ищи ошибку в 17й строке.

MIXER (2006-01-26 18:28:00) [7]
в TabStop все True.может другую инструкцию попробывать?

EvS (2006-01-26 18:12:00) [8]
Посмотри справку по SelectNext, там про TabStop кажется какое-то условие было.

MIXER (2006-01-26 18:08:00) [9]
и всё же есть ли у кого-нибудь идеи?

MIXER (2006-01-26 14:51:00) [10]
Edit1 0
Edit2 1 в TabOrder
Edit3 2

DenXi (2006-01-26 14:41:00) [11]
во-во.... какой порядок в TabOrder, в таком порядке и перескакивает

stone (2006-01-26 14:34:00) [12]
Смотри TabOrder

Наверх

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