FormStorage от RxLib

← →
Filat (2003-10-06 19:15) [0]

Для сохранения некоторых настроек использую FormStorage на отдельной форме. Как сделать изменение некоторых параметров из главной формы на дополнительной форме, где FormStorage, не открывая эту дополнительную форму, и записать их, (хотя наверное глупо ...) или скажем так, как из главной формы заставить FormStorage на другой форме перезаписать параметр?
Спасибо!

← →
NAlexey (2003-10-07 08:58) [1]

procedure BlahBlah; var I: Integer; begin if Assigned(YForm) then with YForm do begin if Components[I] is TFormStorage then begin TFormStorage(Components[I]).StoredValues.Values["YValue"].Restore; TFormStorage(Components[I]).StoredValues.Values["YValue"].Save; Exit; end; end; end;

← →
Filat (2003-10-07 08:58) [2]

Когда то на форуме обсуждалось нечто подобное, и вроде бы было предложение делать через Class, но я с этим никогда не работал.

У компонента FormStorage есть некоторые функции которые спрятаны в protected, может их как то можно вытащить?

← →
NAlexey (2003-10-07 09:11) [3]

Можно и вытащмть, но какого рода ф-ции.?

← →
Filat (2003-10-07 09:41) [4]

алексей, а что под if Components[I] понимать?

← →
NAlexey (2003-10-07 10:31) [5]

>алексей, а что под if Components[I] понимать?
Ну немного не так конечно. Запутал тебя извини...

procedure BlahBlah;
var
I: Integer;
begin
if Assigned(YForm) then with YForm do
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TFormStorage then
begin
TFormStorage(Components[I]).StoredValues.Values["YValue"].Restore;
TFormStorage(Components[I]).StoredValues.Values["YValue"].Save;
Exit;
end;
end;
end;

FormStorage от RxLib Найти похожие ветки