|
|
#1
|
|||
|
|||
RTTI + Hint
Есть следующий код:
Код:
Uses TypInfo; procedure ChangeProperty(FormX: TForm); var PropInfo: PPropInfo; i: integer; s: AnsiString; begin S:= 'ABCDEF'; for i:=0 to FormX.ComponentCount-1 do begin // Ищем у всех компонентов PropInfo:= GetPropInfo(FormX.Components[i].ClassInfo, 'Caption'); // Если свойство есть If PropInfo <> nil then // Передаем ему адрес строки SetOrdProp( FormX.Components[i], PropInfo, Integer(@S[1])); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ChangeProperty(Self); end; В таком виде все отлично работает, т.е при нажатии на кнопку Caption'ы всех компонентов меняются на ABCDEF, с другими свойствами тоже работает (цвет, текст и.т.д). Но если вместо 'Caption' написать 'Hint' то программа вываливается с исключением "Project %ProjectName% faulted with message: 'access violation at 0x7c92a5fb: write of address 0x00030ff4'. Process Stopped. Use Step or Run to continue". А мне нужно менять как раз хинты. Причем ошибка возникает независимо от того, включены хинты или выключены, и на форме включал и выключал. Уже всяко пробовал, никак не работает. Может кто знает в чем причина, в интернете ничего не нашел. ЗЫ: У меня Delphi 7. |
#2
|
||||
|
||||
По поводу того, что в сети ничего нет, это зря. Или совсем лень искать было.
По теме: нужно использовать - SetStrProp(Form1.Components[i], PropInfo, S); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
timeon (08.06.2012)
|
#3
|
||||
|
||||
для хинта s: AnsiString; должна быть глобальной,
либо, как сказано выше, использовать SetStrProp(FormX.Components[i], PropInfo, S); или SetStrProp(FormX.Components[i],'Hint',S); Понять, что хочет заказчик - бесценно, ведь он платит MasterCard Последний раз редактировалось cotseec, 08.06.2012 в 21:58. |
Этот пользователь сказал Спасибо cotseec за это полезное сообщение: | ||
timeon (08.06.2012)
|
#4
|
|||
|
|||
Спасибо
Спасибо, все заработало. Видимо плохо искал
|