ActiveControl

← →
Andrey K (2011-09-09 11:54) [0]

Почему в фрейме на действие
if (ActiveControl<>nil) and (ActiveControl is TEdit) then ....
Компилятор пишет:
[Error] UnUn.pas(3143): Undeclared identifier: "ActiveControl"
Хотя модуль Forms описан.
Как выйти из положения?

← →
Медвежонок Пятачок © (2011-09-09 11:59) [1]

Потому что у фрейма нету такого идентификатора

← →
Омлет © (2011-09-09 12:12) [2]

Свойство ActiveControl реализовано у формы (TCustomForm<-TScrollingWinControl). Фрейм идет мимо (TCustomFrame<-TScrollingWinControl).

> Как выйти из положения?

Читать это свойство у формы, на которой фрейм расположен.

← →
Ega23 © (2011-09-09 12:27) [3]

> Читать это свойство у формы, на которой фрейм расположен.

Смысл?

← →
Омлет © (2011-09-09 12:56) [4]

> Смысл?

Очевидно, чтобы была возможность проверить условие:

> if (ActiveControl<>nil) and (ActiveControl is TEdit) then ....

← →
Andrey K (2011-09-09 13:10) [5]

> Смысл?

На форму положен TPageControl, на страничках выкладываю заготовку (фрейм), с кучей TEdit в которые вводятся только числовые значения и по нажатию, предположим F9, надо тупо поменять знак +/-, в активном TEdit.

> Читать это свойство у формы, на которой фрейм расположен.

Если можно примерчик, как это можно сделать.

← →
Медвежонок Пятачок © (2011-09-09 13:12) [6]

и по нажатию, предположим F9, надо тупо поменять знак +/-, в активном TEdit.

Ну и за каким этим здесь нужен актив контрол?

← →
Медвежонок Пятачок © (2011-09-09 13:13) [7]

КейАп/даун у того самого контрола.

← →
Омлет © (2011-09-09 13:26) [8]

> Если можно примерчик, как это можно сделать.

procedure TMyFrame.btn1Click(Sender: TObject); var Obj: TWinControl; begin Obj := Parent; while (Obj <> nil) and not (Obj is TCustomForm) do Obj := Obj.Parent; if assigned(Obj) and (Obj is TCustomForm) then ShowMessage(TCustomForm(Obj).ActiveControl.Name); end;

← →
Омлет © (2011-09-09 13:27) [9]

Но лучше прислушайся к [7].

← →
Andrey K (2011-09-09 13:50) [10]

Вот спасибо.

> КейАп/даун у того самого контрола.

Конечно моно. Но хотелось одним махом убить всех зайцев.

> Конечно моно. Но хотелось одним махом убить всех зайцев.

Ну и назначь всем зайцам один обработчик, в чём проблема-то? У тебя же Sender есть.

← →
Andrey K (2011-09-09 14:11) [12]

> Ну и назначь всем зайцам один обработчик, в чём проблема-
> то? У тебя же Sender есть.

Точно. Это я чегото притормозил.
Это как про голодного студента. "Может подумать? Чего думать то, прыгать надо."

> Andrey K (09.09.2011 14:11:12) [12]

Тут есть надо

ActiveControl Найти похожие ветки