| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Установка фокуса у компонента [D7]
Диман © (2009-10-15 11:20:00)Привет!
Задача установить фокус на определённом компоненте в зависимости от условий (заполнили-ли поле и.т.п.).
Всё это выполняется в теле процедуры.
Делаю так :
procedure TMyForm.MyMessage (Sender: TObject; const Text, Caption: PChar);
begin
Application.MessageBox (Text, Caption);
if Sender is TEdit then (Sender as TEdit ).SetFocus;
if Sender is TListView then (Sender as TListView ).SetFocus;
if Sender is TComboBox then (Sender as TComboBox).SetFocus;
end;
Всё работает, но возможно-ли упрознить выполнение задачи,
что-бы не прописывать для каждого компонента : "if Sender is TXxx then ..." и.т.п. ?
Диман (2009-10-15 11:33:00) [1]Огромное спасибо!! Затупил... Забыл про родителя :)
Диман (2009-10-15 11:33:00) [2]Огромное спасибо!! Затупил... Забыл про родителя :)
Anatoly Podgoretsky (2009-10-15 11:23:00) [3]> Диман (15.10.2009 11:20:00) [0]
TWinControl
| |
