Переход по компонентам

← →
ЛенаК (2002-10-16 07:22) [0]

На panel находятся несколько edit,label и др.компонент.
При обработке события

procedure TMain.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case ord(key) of
44,48..57,7,127,8: ;
13: bitbtn4.setfocus; // на следующий edit
else
begin
showmessage("Неправильный символ!");
key:=chr(7);
end;
end;
мне нужно, чтобы при нажатии на Enter фокус ввода перемещался в следующий Edit, чтобы была универсальная процедура перехода.
Я пыталась проверять
for i:=1 to panel3.componentcount do
if TEdit(Panel3.components[i]) then ...
но panel3.componentcount всегда 0.
Как не делать form1.componentcount, а найти именно те edit, которые лежат на panel?

← →
MBo © (2002-10-16 07:24) [1]

ControlCount и controls[i] - те контролы, чей Parent - Panel

← →
ЛенаК (2002-10-16 07:35) [2]

for i:=1 to form1.controlcount do
if form1.Controls[i].Parent.??? а как здесь узнать, что Panel?

← →
gek © (2002-10-16 07:44) [3]

Может имеется ввиду

13:SelectNext(Sender as TWinControl,true,true);

← →
ЛенаК (2002-10-16 07:49) [4]

gek © (16.10.02 07:44)
Да, именно так мне и надо!! :))
Спасибо, заработало!
Как, оказывается, просто. А я огород строю...

← →
MBo © (2002-10-16 07:49) [5]

не form1.controlcount, а Panel3.ControlCount!!!

← →
ЛенаК (2002-10-16 08:03) [6]

Component.components[] - компоненты, чей Owner - данный компонент, Control.Controls[] - чей Parent - данный control

Переход по компонентам Найти похожие ветки