Hi,
ich hab das jetzt einfach so gemacht:
Delphi-Quellcode:
private
FAllUsersProfile: string;
procedure SetAllUsersProfile(const Value: string);
published
property AllUsersProfile: string read FAllUsersProfile write SetAllUsersProfile;
end;
[...]
procedure TEnvironment.SetAllUsersProfile(const Value: string);
begin
FAllUsersProfile := FAllUsersProfile;
end;
Ist vllt. keine sehr saubere Lösung, aber so gehts^^.