Скачать: CL | DM;

Сохранение-загрузка свойств формы   Найти похожие ветки 

← →
Andrey-406   (2007-02-17 17:33) [0]

Привет всем! Я пытаюсь сделать в программе возможность сохранения/загрузки свойств формы, ее размеров, расположения и т.д. Сохранение работает, а вот загрузка нет, пишет класс TToolButton не найден. Как быть и почему ругается именно на TToolButton. Вот код процедуры загрузки

procedure LoadFormFromFile(Form: TForm; fName: String);
var
 DataFile: TFileStream;
 DirName: String;
 i: integer;
begin
 DirName := IncludeTrailingBackslash(IncludeTrailingBackslash(GetCurrentDir) + OPTIONS_DIR);
 if not FileExists(DirName + fName) then Exit;
 DataFile := TFileStream.Create(IncludeTrailingBackSlash(DirName)+fName, fmOpenReadWrite);
 try
   for i := 0 to Form.ComponentCount - 1 do
   begin
     DataFile.ReadComponent(Form.Components[i]);
     if DataFile.Position = DataFile.Size then Exit;
   end;
 finally
   DataFile.Free;
 end;
end;

---

← →
Loginov Dmitry ©   (2007-02-17 20:43) [1]

Не изобретай велосипед, ведь есть же для таких целей неплохие стандартные средства, такие как TFormStorage из библиотеки RXLib.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c