Форум: "Начинающим";
Текущий архив: 2009.11.29;
Скачать: [xml.tar.bz2];
Вниз
Установка фокуса у компонента Найти похожие ветки
← →
Диман (2009-10-15 11:20) [0]Привет!
Задача установить фокус на определённом компоненте в зависимости от условий (заполнили-ли поле и.т.п.).
Всё это выполняется в теле процедуры.
Делаю так :
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 ..." и.т.п. ?
← →
Anatoly Podgoretsky © (2009-10-15 11:23) [1]> Диман (15.10.2009 11:20:00) [0]
TWinControl
← →
Диман (2009-10-15 11:33) [2]Огромное спасибо!! Затупил... Забыл про родителя :)
← →
Диман (2009-10-15 11:33) [3]Огромное спасибо!! Затупил... Забыл про родителя :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.11.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c
