Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Одинаковое значение свойств у всех Edit-ов [XP]

Страницы: < 1 2 3 >
programmer90 © (2008-05-30 19:04:00)
Здравствуйте уважаемые участники форума. У меня такой вопрос: Как задать одно и то же значение свойства всем обектам данного типа на форме. Пример : я хочу чтобы при к-л событии (неважно каком) всем Еdit-ам формы придать одинаковое значение Text-a. Чесно говоря видел где-то, но забыл где...Зарание всем спасибо.

Palladin (2008-05-30 21:37:00) [21]

>ZENsan © (30.05.08 21:24) [16]

да ты то тут причем... с тобой в этой ветке все нормально... )

nimble_ (2008-05-30 21:36:00) [22]
> я разрабатываю форму которая подобна форме накладной,

Первое, что вспоминается из "умных книжек": создать docиил xlsфайл (шаблон), со вставками вида #Edit1Text, #Edit2Text, а потом просто заменять эти вставки на нужный текст. Правда, придётся работать с офисом, но я бы лучше пошёл этим путём: если форма док-а чуть-чуть изменится, поправить doc значительно легче переставления эдитов на форме

Сергей М. (2008-05-30 21:35:00) [23]

> есть другие варианты про которые я незнаю?

Миллионы оных !)

nimble_ (2008-05-30 21:35:00) [24]
> я разрабатываю форму которая подобна форме накладной,

Первое, что вспоминается из "умных книжек": создать docиил xlsфайл (шаблон), со вставками вида #Edit1Text, #Edit2Text, а потом просто заменять эти вставки на нужный текст. Правда, придётся работать с офисом, но я бы лучше пошёл этим путём: если форма док-а чуть-чуть изменится, поправить doc значительно легче переставления эдитов на форме

Сергей М. (2008-05-30 21:34:00) [25]

> я IBM-совместимый человек

Ты просто полный дилетант, а не "совместимый человек")

Существует огромное кол-во генераторов отчетов, ты про них хоть что-нибудь слышал ?

programmer90 (2008-05-30 21:32:00) [26]

> Сергей М. © (30.05.08 21:31) [22]
> О боже ...Ты что же, дружок, выводишь на принтер изображение
> формы ввода данных ?!

Ага :),а есть другие варианты про которые я незнаю?

programmer90 (2008-05-30 21:31:00) [27]
Palladin ©
> хотя прогноз примерный... может и 4 года... раз ктрл+клик
> решенье всех проблем...

Спасибо за критику , вам виднее..

Сергей М. (2008-05-30 21:31:00) [28]
О боже ...

Ты что же, дружок, выводишь на принтер изображение формы вводаданных ?!

programmer90 (2008-05-30 21:29:00) [29]

> ZENsan © (30.05.08 21:26) [18]
> Нет именно TypInfo, потому что функцию так назвали TypeInfo.
>
А теперь понял...

Palladin (2008-05-30 21:29:00) [30]

>я бы поинтерисовался бы синтаксисом , нажав к ctrl+click накой-нить процедуру и функцию я бы наверняка вышел бы на модуль Typinfo

наивный... ну попробуй... нажми волшебное сочетание... да и парень совсем не по этому признает, что его пост не адекватен, а по тому что и я сказал...

а 2 - это 2 года ) хотя прогноз примерный... может и 4 года... раз ктрл+клик решенье всех проблем...

programmer90 (2008-05-30 21:28:00) [31]
Сергей М. © (30.05.08 21:08) [14]

> > С учетом http://www.delphimaster.ru/cgi-bin/forum.pl?id=1212160292&n=18
Это уже совсем другая история...

ZENsan (2008-05-30 21:26:00) [32]
Нет именно TypInfo, потому что функцию так назвали TypeInfo.

programmer90 (2008-05-30 21:25:00) [33]

> Сергей М. © (30.05.08 21:08) [14]
> > programmer90Что ж ты такое гениальное разрабатываешь ?
> С учетом http://www.delphimaster.ru/cgi-bin/forum.pl?id=1212160292&n=18
> и 23-х Edit'ов, которые ты засандалил на форму и теперь
> не знаешь как с ними уравляться разом ?

Хорошо я раскрою секрет, я разрабатываю форму которая подобна форме накладной, которая обычно пишется вручную.так как я IBM-совместимый человек , решил облегчить труд, не писать всё вручную и печатать при помощи procedure form1.print; ну и принтера конечно:);.
Как вы поняли 23 едита это есть места для набора текста. на самом деле, надо не только "попасть" чтобы координаты на форме, соответствовали бы на бумажке. Код поучился достаточно большим, так как кроме "попадания",нужно ещё облегчить труд а не усложнять.
Там есть пару полей для ввода имен, всёго имен 15, это наши производители, я сделал так от 1-15 набираем и автоматически кэпшну присваивается соот. цифре имя, это ещё цветочки, пришлось узнать как сделать многострочный хинт для подсказок, можно комбобокс но у него там стрелка справа, при печяти эта стрелка нафиг не нужна, и бордерстайл и едит -ов ноне делаю чтобы не печатал лишнее короче, очень много всего.
Пришлось это всё на CodeGear Rad Studio 2007 делать так как D7 криво поддеживает интернациональные символы, кjроче долгая история....

ZENsan (2008-05-30 21:24:00) [34]

> и чем порочен приведенный код для задачи назначения одинаковоназванного
> published свойства разным классам...

Если ты про мой код, то это пример именно для его случая, но никак не универсальный.

programmer90 (2008-05-30 21:09:00) [35]
nimble_ (30.05.08 20:57) [12]

Публично признаю, что ступил. Рву волосы) Ну да ладно, мож кому ещё нужно будет
в любом случае если бы
> пришлось бы подключить модуль TypInfo

я бы всё равно догадался, поскольку без подключенного модуля он был выдал ошибку, после чего , я бы поинтерисовался бы синтаксисом , нажав к ctrl+click накой-нить процедуру и функцию я бы наверняка вышел бы на модуль Typinfo(я всё-таки думаю что Typeinfo, возможно я ошибаюсь).
так что не всё так страшно. Спасибо всем.

Сергей М. (2008-05-30 21:08:00) [36]

> programmer90

Что ж ты такое гениальное разрабатываешь ?
С учетом http://www.delphimaster.ru/cgi-bin/forum.pl?id=1212160292&n=18и 23-х Edit'ов, которые ты засандалил на форму и теперь не знаешь как с ними уравляться разом ?

programmer90 (2008-05-30 21:01:00) [37]

> Palladin © (30.05.08 20:53) [10]
> ну да... в ближайшем будущем... когда через 2 может и поймешь

надеюсь что не "через 2 века" имели ввиду.

nimble_ (2008-05-30 20:57:00) [38]
Публично признаю, что ступил. Рву волосы) Ну да ладно, мож кому ещё нужно будет

programmer90 (2008-05-30 20:56:00) [39]

> ZENsan © (30.05.08 20:42) [9]
> Кстати.. бывает случай когда можно и так:for i := 1 to 23
> do TEdit(FindComponent('Edit' + IntToStr(i))).Text := 'Kakoj-
> to tekst';

Вы прям мои мысли читате :) , я над этим достаточно долго думал...
даже пытался так: for i := 1 to 23 do
Edit[i].Text:='Kakoj-to';
естесственно потом понял что это совсем неправильно, так как это не нумеративная величина, и не массив, а TCaption ... ну вы сами знаете.
Большое спасибо ZENsan © , nimble_.

Palladin (2008-05-30 20:53:00) [40]
ну да... в ближайшем будущем... когда через 2 может и поймешь, что же есть RTTI, и чем порочен приведенный код для задачи назначения одинаковоназванного published свойства разным классам...

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »