Есть следующий код:
Код:
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.