Скачать: CL | DM;

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

← →
ЛенаК   (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]

MBo © (16.10.02 07:49)
Спасибо, так тоже попробую. :)
А чем componentcount отличается от controlcount?

---

← →
MBo ©   (2002-10-16 08:06) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c