Удобная загрузка местоположения формы

Previous  Top  Next

    
 

Автор: Virtualik

 

Если вы храните параметры местоположения(Top, Left, Width, Height) формы в реестре, то чтобы не загружать данные из нескольких ключей вы можете их записать в один, и из одного же прочитать ;)

 

По сути, данные записывается в виде record'а. А как это примерно может выглядеть смотрите в примере.

Code:

var

Ini: TRegIniFile;

...

 

procedure TForm1.FormCreate(Sender: TObject);

var

Rct: TRect;

begin

Ini := TRegIniFile.Create('<Здесь вы пишете путь к вашим настройкам в

   реестре > ');

// Если есть данные --> загружаем их

if Ini.ReadBinaryData('FormPosition', Rct, SizeOf(TRect)) > 0 then

   BoundsRect := Rct;

...

end;

 

procedure TReply.FormDestroy(Sender: TObject);

var

Rct: TRect;

begin

// Сохранение данных на выходе

...

Rct := BoundsRect;

Ini.WriteBinaryData('MsgPos', Rct, SizeOf(TRect));

Ini.Free;

end;

 

©Drkb::02296

http://delphiworld.narod.ru/

DelphiWorld 6.0