Главная страница
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.119 c
3-51082
Filat
2003-09-25 19:32
2003.10.16
FIBPlis под Delphi 7, не могу установить :(((


14-51520
SergP
2003-09-27 07:19
2003.10.16
TIdMappedPortTcp. Как с ним работать?


14-51409
dmtr
2003-09-29 13:48
2003.10.16
Интересный вопрос


6-51384
iWorm
2003-08-21 03:34
2003.10.16
Как передать c cокета TServerSocket на сокет TClientSocket


14-51479
Сергей Чурсин
2003-09-17 10:43
2003.10.16
---|Ветка была без названия|---