|
#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. |