KeyPress

← →
MIXER (2006-01-26 14:31) [0]

Мастера подскажите почему с 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;

← →
stone © (2006-01-26 14:34) [1]

Смотри TabOrder

← →
DenXi © (2006-01-26 14:41) [2]

во-во.... какой порядок в TabOrder, в таком порядке и перескакивает

← →
MIXER (2006-01-26 14:51) [3]

Edit1 0
Edit2 1 в TabOrder
Edit3 2

← →
MIXER (2006-01-26 18:08) [4]

и всё же есть ли у кого-нибудь идеи?

← →
EvS (2006-01-26 18:12) [5]

Посмотри справку по SelectNext, там про TabStop кажется какое-то условие было.

← →
MIXER (2006-01-26 18:28) [6]

в TabStop все True.может другую инструкцию попробывать?

← →
Плохиш © (2006-01-26 18:57) [7]

Нас опять разводят на телепаторы :-(
Сделал форму, кинул 3 едита, скопировал код из [0] - всё работает.
Ищи ошибку в 17й строке.

← →
ЮЮ © (2006-01-27 03:28) [8]

А они все одного и того же Parent-а имеют? Может 1 и 3 лежат на одном, а 2-й на другом?

← →
ASoft (2006-01-27 04:17) [9]

to MIXER:
мож это подойдет: http://delphimaster.net/view/2-1137328158/

← →
MIXER (2006-01-27 10:50) [11]

в том и базар что все едиты лежат рядом (parent)
Asoftу-"ветка не найдена"

KeyPress Найти похожие ветки