Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Вниз

как передать фокус компонентам по порядку их следования   Найти похожие ветки 

 
stud   (2003-09-20 12:43) [0]

т.е. есть много едитов, нужно передавать фокус ввода от одного к следующему при выполнении некоторого условия, он хочется иметь обработчик для всех


 
Palladin   (2003-09-20 13:01) [1]

Создай класс-менеджер (хотя бы наследованием или агрегацией TList или TObjectList) фокусировки и добавляй туда созданные Edit по которым хочешь что бы бежала фокусировка
порядок следования можешь брать из TabOrder или можешь организовать свой...
Типа подобного
TFocusManager=class
protected
m_Controls:TObjectList;
public
constructor create;
destructor destroy; override;
procedure Add(p_Edit:TEdit);
procedure SetNextFocus;
end;


и вперед...


 
stud   (2003-09-20 13:07) [2]

замечательно в этой конструкции интересует примерное содежнание метода SetnextFocus))


 
Palladin   (2003-09-20 13:10) [3]

TEdit(m_Controls[m_nNextControl]).SetFocus;


 
stud   (2003-09-20 13:13) [4]

спасибо, все оказалось намного проще))
newvrachf.SelectNext((sender as TdxEdit),true,true);



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

Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.013 c
1-3948
tim5
2003-09-20 22:38
2003.10.02
Image и PopupMenu.


6-4023
alexdbases
2003-08-01 10:49
2003.10.02
Proxy - соеденение через HTTP прокси....


1-3938
kavlad
2003-09-17 12:20
2003.10.02
Самопальный контрол-панель и design-time


1-3862
DimChan
2003-09-19 07:27
2003.10.02
Переменные


11-3813
Kladov
2003-01-19 12:53
2003.10.02
Bug компилятора Delphi6 и выше - в kol.pas неверные остановы.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский