
25.10.2011, 21:52
|
Новичок
|
|
Регистрация: 07.10.2011
Сообщения: 77
Версия Delphi: Turbo Delphi 20
Репутация: 10
|
|
Цитата:
Сообщение от t116
Так читать из файла.
ini.ReadInteger('Position', 'T', 261)- 3-й параметр, вы берете из ini файла, он будет у вас по умолчанию если не будут меняться размеры или позиция. В дальнейшем при изменении размера или позиции он будет перезаписываться.
Код:
procedure TForm1.FormShow(Sender: TObject);
var
ini : TIniFile;
begin
ini := TInifile.Create(ExtractFilePath(Application.ExeName)+'my.ini');
Form1.Left := ini.ReadInteger('Position', 'L', 329);//применяем позицию окна
Form1.Top := ini.ReadInteger('Position', 'T', 261);
Form1.Width := ini.ReadInteger('Size', 'W', 384); //применяем размеры окна
Form1.Height := ini.ReadInteger('Size', 'H', 312);
ini.Free;
end;
Размеры и положение в заголовок сам выведешь? 
|
Во,во эт мне и надо сделать)))
|