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

Вниз

TFrame и не только   Найти похожие ветки 

 
Silver_   (2003-02-19 10:35) [0]

- есть фрейм Frame1, которого используют бог знает скока форм

- есть форма Form1
надо из формы Form1 сделать например ( DBGrid1.Columns.Items[2].Visible:=False;)
в фрейме так чтоб везде где он (фрейм) используется стало так (Enabled...)

- Делаю так Frame1.DBGrid1.Columns.Items[2].Visible:=False;
а Дельфя в ответ ругается ("Undeclared identifier:"Frame1"")
uses uFrame1; имеется
Как быть, вот в чем большой вопрос ???


 
icWasya   (2003-02-19 10:43) [1]

var I,J:Integer;
F:TForm;
Fr:TFrame1;

for I:=0 to Screen.FormCount-1 do begin
F:=Screen.Forms[I];
for J:=0 to F.ComponentCount-1 do begin
if F.Components[J] Is TFrame1 then begin
Fr:=TFrame1(F.Components[J]);
Fr.DBGrid1.Columns.Items[2].Visible:=False;
end;// if
end;// for J
end;//for I


 
Silver_   (2003-02-19 10:54) [2]

icWasya ©
а так чтоб напрямую
Fr.DBGrid1.Columns.Items[2].Visible
никак?


 
icWasya   (2003-02-19 11:33) [3]

ну так экземпляров фрейма в твоём приложении много - нужно найти все и на всех сделать изменения. Или не так ???


 
Silver_   (2003-02-20 15:32) [4]

icWasya ©

хотел просто без сканированиа всех обьекто видомо низя :(

P.S. воспользовалься твоим примеро (с верху) за это пасиба
взэ полегчало :)



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

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

Наверх





Память: 0.45 MB
Время: 0.009 c
14-5800
VEG
2003-02-12 20:35
2003.03.03
Как правильно написать такой тип:


6-5685
bkv
2003-01-13 11:46
2003.03.03
Список всех имен машин в локальной сети


14-5812
ААААА...
2003-02-13 03:58
2003.03.03
ОООО...


14-5820
sad
2003-02-11 19:14
2003.03.03
JavaScript: определить существует ли файл на диске


4-5907
Cosmic
2002-12-04 23:26
2003.03.03
SHBrowseForFolder





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский