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

← →
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;

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