Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

Имя текущего поля 


Alxn   (2002-03-28 14:22) [0]

На форме несколько DBGRID и DBEDIT. Как узнать имя поля-таблицы на котором фокус ввода. Затем использовать их для поиска в locate "по текущему полю".



Lord Warlock   (2002-03-28 14:31) [1]

if ActiveControl is TDBEdit then
s:=TDBEdit(ActiveControl).Field.Name;
if ActiveControl is TCustomDBGrid then
s:=TCustomDBGrid(ActiveControl).SelectedField.Name;



Alxn   (2002-03-28 14:57) [2]

Но есть еще кнопка "Поиск". На ее нажимают... Эти команды (s:=) не выполняются.



Val   (2002-03-28 15:02) [3]

тогда уберите проверку на активный контрол



Lord Warlock   (2002-03-28 15:10) [4]

Можно пойти извратным путем, заведи приватную переменную типа
TWinControl,
напиши обработчик OnClick допустим, и нем этой приватной пере-
менной назначай Sender, а в клике на Поиск замени ActiveControl на эту приватную переменную.



Lord Warlock   (2002-03-28 15:47) [5]

Да, OnClick назначь всем, от кого хочешь получать имена полей




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.032 c
14-57883          Фэ                    2002-03-04 23:10  2002.04.18  
Shells


7-57892           Mush[RUM]             2002-01-21 17:12  2002.04.18  
Rat


14-57865          SV                    2002-03-07 09:21  2002.04.18  
Инфо


7-57905           Jorchick              2002-01-21 14:04  2002.04.18  
Эмуляция клика мышки


1-57787           Rammst                2002-04-06 06:23  2002.04.18  
Клавиатура