Скачать: CL | DM;

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

← →
Диман   (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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c