Установка фокуса у компонента

← →
Диман (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]

Огромное спасибо!! Затупил... Забыл про родителя :)

Установка фокуса у компонента Найти похожие ветки