Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизПереход по компонентам Найти похожие ветки
← →
ЛенаК (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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c