В каком классе появилось свойство caption?

Я не могу ни в гугле найти, ни в справке по D2007.
Может в дельфи есть способ, как узнать, в каком классе объявлено то или иное свойство.

Мну нужно что-то вроде этого

Но у TWinControl нет свойства caption

Кажись в TControl. И в нем оно protected.

Как мне добраться до него программно?
TControl(Controls[i]).caption тоже не прокатывает

изврат но всеже



Это сообщение отредактировал(а) Frees - 1.2.2011, 13:38

а восстанавливать из ini файла также?

какого еще ini файла?

Возможно тебе стоит TJvFormStorage посмотреть? 

Что нужно-то?
Есть некий редактор свойств компонентов. Пользователь может изменять свойства выбранного компонента.
Вот среди прочих свойств, есть свойство Caption.
Мне нужно сохранить и восстановить все свойства. В том числе и Caption. 
На форме самые разные компоненты: эдиты, чекбоксы, таблицы, метки, выпадающие списки и т.д.

И нету. Полазь по VCL, у всех контролов, что используют caption, оно обьявлено отдельно для каждого в published. Т.е. не от родителя наследуется, а объявлено отдельно для каждого контрола.
Тебе нужно что-то вроди такого:

и так перебрать все возможные типы,
либо 

если точно известен тип.

 :(

Добавлено через 29 секунд

Не совсем понял, этот код... а как будет выглядеть код для SetCaption?

Добавлено через 3 минуты и 11 секунд
Правильно?

если не обязательно ini то можно посмотреть Сириализацию
http://www.rsdn.ru/article/delphi/serialization.xml

Это сообщение отредактировал(а) Frees - 1.2.2011, 14:10

Ну начнем с того, что у эдитов точно, скорее всего у таблиц, точно у выпадающих списков нету свойства caption. Если лучше присмотреться, то может оказаться что там всего-навсего 3-5 типов компонент.

Читал , для мну слишком наворочено

Добавлено через 2 минуты и 15 секунд

Да, ты прав. Может так и переделаю 

Есть у TWinControl это свойство. Как у любого наследника TControl. А доступ к нему показан в первом ответе Frees. Только это не изврат, а нормальный способ. 
Непонятно правда для чего сохранять в настройках Caption компонента, если в данном компоненте это свойство не опубликовано?

Мне не у всех компонентов надо, а только у тех, которые имеют это свойство. Мне Poseidon дал правильный намёк. И скорее всего я так и сделаю. Да, придётся выполнять много проверок, но что поделаешь :(

Если нет Caption, то, как правило, есть Text.
GetText вернёт или то, или то.
Хотя по сути это одно и то же.

можно и мне намек дать?

любое published св-во устанавливается с пол-пинка:

Код

if GetPropInfo(ASomeComponent, 'Caption') <> nil then     SetStrProp( AComponent, 'Caption', lSomeNewCaption );

Это сообщение отредактировал(а) MetalFan - 1.2.2011, 18:45

В 2007 через RTTI нельзя проверить есть Caption или нет?

Keeper89, почему нельзя? GetPropInfo - не?

В сторону TJvFormStorage совершенно правильно ткнули. А работает это через RTTI.

Да ну. Где?

unit Controls;

или я не там смотрю?

Добавлено через 1 минуту и 59 секунд
Ну так Caption и Text - это как бы разные вещи. Caption редактировать нельзя, а Text зачастую можно.

Именно поэтому они называются по разному.
А по сути это одно и то же.
Если ты попробуешь получить Caption у TEdit, то получишь Text.
Если попробуешьполучить Text у TLabel - получишь Caption.
Их разделение чисто логическое.
А по сути - это текст контрола.
Если брать WinAPI - там они не различаются.

На мой взгляд, этот вариант оправдан лишь в одном случае:
если нет возможности создать потомка, но при этом необходимо добраться к свойству. Во всех остальных это есть ИЗВРАТ. При чём гарантий, что такой код будет "глотаться" новыми версиями компилятора, нам никто не даёт!
2 AkellaКак раз для твоей задачи, идеально подходит модуль TypInfo, в котором реализованна возможность работы с RTTI(Интроспекция).Ты можешь с его помощью проверять, есть ли у объекта определённое сойство, и если такое есть, то получать/инициализировать значение эт. свойства. Соответственно, модуль работает только с published свойствами.

Пустая строка в Text для Edit - нормальное явление. Ждем от пользователя ввода данных. Пустая строка в Caption для Label - а нафига тогда вообще этот Label? Так что это совсем не одно и то же.

Да, как проверить наличе свойства не проблема.

Проблема в том, что вместо простого доступа к свойству Caption, как например к Visible
TWinControl(Controls[i]).visible
придётся городить огород с проверкой на тип конкретного компонента
if ... is TcxCheckBox then
if ... is TLabel then
if ... is TещёКакойТоТамКомпонент then

Добавлено через 4 минуты и 3 секунды

Легко 

Добавлено через 4 минуты и 35 секунд

Я не хочу использовать джедаев

Добавлено через 7 минут и 3 секунды

Та это понятно, а не понятно как это реализовать 1-3 строками кода. Чтобы можно было сохранить значение Caption, а потом восстановить. В цикле.

А в чем проблема? установка/чтение свойства по его PropInfo?

я же уже "намекал" тут

Т.е. ты полагаешь, что реализованы они божьим духом и в твоём коде невоспроизводимы в принципе?

Да мне всё равно, кем они реализованы. Я просто не хочу использовать эту библиотеку и всё. Я наоборот стараюсь удалить из всех проектов использование этой библиотеки.

Давно говорил и говорю. Библиотека RxLib нужна не столько для того чтобы ее явно использовать, сколько для того чтобы в ее исходниках смотреть как умные люди сделали что-то. То же касается и ее потомка JEDI.

А почему просто не сделать SaveComponent и LoadComponent?

Хочешь посмотреть, как делают умные люди? Ссмотри сырцы VCL/RTL
А в код джедаев за этим лазить безполезно, ибо там корябают все кому не лень.
И многие из них далеко не умные...

Особенно GetMem.inc образец кода, ага.

Или DBXJSON.pas



Надо полагать, это писали "далеко умные" люди.

Много компонентов, много свойств. Загрузка формы будет долгая.

Непонятно, почему автор игнорит мое предложение читать/писать св-ва (Caption и по.) через TypInfo...
Ну да ладно.

MetalFan, ну вот так нас игнорят =)

Вот вариант с API:

1. Ну вообще-то я в основном говорил о RXLib. А в её код смотрят даже разработчики Дельфи. О чем свидетельствуют появившиеся не так давно в Дельфи новые модули с функциональностью ряда модулей RxLib и даже с теми же именами.
2. Что же касается именно JEDI, то тут конечно имеются оговорки. И в JEDI может появиться бредовый код. Но нельзя не отметить, что в JEDI есть много ценного, чего в Дельфи пока нет. 

Как непонятно? Ведь это использует JEDI, а автора от них тошнит!

Ты не прав. Я читал его. И ответил на него: http://forum.vingrad.ru/index.php?showtopi...t&p=2292644
Может я не понял, что ты хотел сказать мне?

Добавлено через 2 минуты и 58 секунд



if GetPropInfo(Components[i], 'Caption') <> nil then
    SetStrProp(Components[i], 'Caption', SomeNewCaption);  

Добавлено через 3 минуты и 6 секунд
Надо попробовать

Ну, можно и не как Посейдон предложил, а через RTTI читать свойство c именем Caption. Работать будет для всех компонент, а не только предопределенных.

Добавлено через 1 минуту и 36 секунд

а, ну я вижу вы сами разобрались.

давно надо было попробовать)

да уж, спехом читал всё по диагонали   

MetalFan, супер. Спасибо. Вопрос решён.


Вот так сохраняем:


Вот так восстанавливаем: