Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
1-51281
Peter
2003-10-06 16:40
2003.10.16
Процедуры


14-51453
djnv
2003-09-29 20:37
2003.10.16
Помогите решить задачку плиззз, народ помогите умираю!!!


1-51336
Joni
2003-10-06 00:01
2003.10.16
Ошибка при компиляции


14-51458
Карлсон
2003-09-29 16:30
2003.10.16
я фигею, дорогая редакция!


8-51351
lipskiy
2003-06-13 00:26
2003.10.16
Какой формат видеофайлов поддерживается всеми виндами?