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

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

← →
ksan   (2002-10-02 19:57) [0]

Привет! Ответте на вопрос: как обработать событие OnEnter компонента, чтобы при щелчке мыши на нем фокус ему не передовался, а оставался у того компонента, у которого он был до этого.

---

← →
Jeer ©   (2002-10-02 21:07) [1]

Первое, что пришло в голову:

var cname: string; // имя компонента
..
На OnExit компонентов пишешь
cname := (Sender as TComponent).Name;
(можно через ActionList сократить код)

На OnClick или OnEnter или.. пишешь
procedure TForm.ButtonClick(Sender: TObject);
var cmp: TComponent;
begin
cmp := FindComponent(cname);
if cmp <> nil then
with cmp as TWinControl do SetFocus;
end;

---

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

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



Память: 0.44 MB
Время: 0.013 c