Форум: "Начинающим";
Текущий архив: 2011.12.18;
Скачать: [xml.tar.bz2];
Вниз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]Вот спасибо.
> КейАп/даун у того самого контрола.
Конечно моно. Но хотелось одним махом убить всех зайцев.
← →
Ega23 © (2011-09-09 13:58) [11]
> Конечно моно. Но хотелось одним махом убить всех зайцев.
Ну и назначь всем зайцам один обработчик, в чём проблема-то? У тебя же Sender есть.
← →
Andrey K (2011-09-09 14:11) [12]
> Ну и назначь всем зайцам один обработчик, в чём проблема-
> то? У тебя же Sender есть.
Точно. Это я чегото притормозил.
Это как про голодного студента. "Может подумать? Чего думать то, прыгать надо."
← →
Anatoly Podgoretsky © (2011-09-09 15:02) [13]> Andrey K (09.09.2011 14:11:12) [12]
Тут есть надо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.12.18;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.004 c