Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Вниз
фокусировка компонента Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c
