Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.029 c