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

Вниз

Перенос процедур главного модуля в несколько других...   Найти похожие ветки 

 
Mazer   (2003-08-21 19:01) [0]

Здравствуйте, уважаемые!

Ламерский вопрос:
Есть глаавный модуль с классом TForm1.
есть нескорлько процедур этого класса.
Так вот есть желание раскидать эти процедуры по другим модулям для удобства работы с ними.
Как это легче всего сделать не прописывая перед каждым обращением к компоненту Form1.Edit1.Text, Form1.Edit2.Text?

Заранее спасибо!


 
Юрий Федоров   (2003-08-21 19:08) [1]

with Form1 do
begin
Edit1.Text:="123";
end;
Это чтоли ты имеешь в виду ?


 
Fay   (2003-08-21 19:15) [2]

Сделать остальные формы наследниками TForm1 ?


 
Skier   (2003-08-21 19:16) [3]

Может это намёк на метод TComponent.FindComponent(...) и кастинг ?


 
Mazer   (2003-08-21 19:21) [4]

[b]Юрий Федоров[/b]
не не это...
так не хочется...

[b]Fay[/b]
там нет других форм, просто модуля для удобства размещения подобных процедур...

[b]Skier[/b]
а проще никак?


 
Skier   (2003-08-21 19:26) [5]

>Mazer (21.08.03 19:21) [4]
см. св-ва
-ComponentCount
-Components[...]
+ кастинг



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

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

Наверх





Память: 0.45 MB
Время: 0.014 c
14-10972
wl
2003-08-15 14:24
2003.09.04
? это Lovesan?


3-10652
User_OKA
2003-08-12 12:56
2003.09.04
Fib +


1-10773
johny
2003-08-25 13:14
2003.09.04
Выполнение процедуры на событие в другой процедуре


3-10625
Woolen
2003-08-13 11:54
2003.09.04
Запуск хранимой процедуры Oracle из dbExpress


14-10869
Soft
2003-08-18 16:26
2003.09.04
Освоить Linux ненамного труднее, чем Windows ХР???





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