Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Вниз

Видимость компонент на форме   Найти похожие ветки 

 
kerkonst   (2003-01-21 14:05) [0]

Здраствуйте !
И снова глупому мне требуется помощь...

Имеется формочка. На ней много PageContol-ов, некоторые из них
вложенные, куча закладок. На некоторых из закладок имеются
помимо прочего DBGrid-ы. Юзеру всегда одновременно виден только один DBGRid. Надо в любой момент времени знать, какой DBGrid видит юзер.

Пытался так. Вешал таймер и в нем:
for i:=0 to MainForm.ComponentCount-1 do
if MainForm.Components[i] is TDBGrid then
if (MainForm.Components[i] as TDBGrid).Visible then
begin
Ура ! Я нашел его !
...
Break;
end;

Но, у всех DBGid-ов visible=true.
Насколько я понял, visible работает "с точностью" до контейнера. Т.к. pagecontrol виден, то и все гриды типа видны.

Спрашивается, а как же всетки узнать, какой DBGrid видет юзер ?


 
MBo   (2003-01-21 14:08) [1]

if DBGridX.Parent=PageControl1.ActivePage


 
kerkonst   (2003-01-21 14:23) [2]

Эээ.. Идея интересная, но мне немного неясно, как конкретно ее реализовывать. PageControl-ов несколько, причем некоторые из них вложены друг в дружку.


 
MBo   (2003-01-21 14:28) [3]

может, проще будет по событию активации страниц проверять, есть ли на ней dbgrid и класть указатель на него в глоб. переменную?


 
kerkonst   (2003-01-21 14:34) [4]

сначала я примерно так и сделал.
Но, 1) некрасиво
2) при программном переключении pagecontrol.oncange не происходит.Если же каждый раз и здесь тоже сие делать, то это будет уже совсем некрасиво...

Хотя, счас с tabsheet.onenter попрубую...


 
kerkonst   (2003-01-21 14:55) [5]

OnEnter работает. Странно, что я сразу до него не допер, а возился с onchange.

Всем спасибо за участие...



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.011 c
3-96547
Radimir
2003-01-15 10:17
2003.01.30
Сортировка записей в ADOTable


7-97046
Nikolai_S
2002-11-18 16:26
2003.01.30
Как определить поддерживает ли принтер цветную печать?


8-96895
ivankor
2002-10-11 09:22
2003.01.30
Как сравнить две картинки?


1-96656
HermitAlex
2003-01-20 16:49
2003.01.30
Multiline Component Palette


3-96591
DenisLK
2003-01-13 13:33
2003.01.30
TQuery





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский