Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.034 c
1-92598
I_S_
2002-10-17 10:47
2002.10.28
---|Ветка была без названия|---


3-92396
zdn
2002-10-08 14:41
2002.10.28
---|Ветка была без названия|---


3-92357
Aleksandr
2002-10-07 13:49
2002.10.28
Как перевести значение TDateTime в цифровой формат MS SQL?


4-92787
asdqwer
2002-09-14 07:47
2002.10.28
Круглая кнопка


7-92766
vvant
2002-08-23 16:49
2002.10.28
Как убрать приложение из списка по Ctrl+Alt+Del ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский