фокусировка компонента [D6, Win95/98]
ksan © (2002-10-02 19:57:00)
Привет! Ответте на вопрос: как обработать событие OnEnter
компонента, чтобы при щелчке мыши на нем фокус ему не передовался,
а оставался у того компонента, у которого он был до этого.
Jeer (2002-10-02 21:07:00) [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;
Наверх 
ЧАТ |
Орешник |
|
