VPF::Не работает - Форум программистов

Pavelbej

Дата 20.7.2005, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Не могу созханить состояние окна в ini файле. С позицией и размером разобрался а вот как запомнить свернуто или развернуто окно, не могу. Помогите пожалуйста.

Zlo

Дата 20.7.2005, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: 1
Всего: 1

Pavelbej
У Формы есть свойство "WindowState" в самом конце инспектора!
Когда значени Нормал то окно развернуто, когда Минимизе развернуто!
Тебе весеголишь надо запомнить значение этого свойства!

Это сообщение отредактировал(а) Girder - 21.7.2005, 00:01

FRAGNATIC

Дата 21.7.2005, 00:12 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Код


  if Form1.WindowState=wsMaximized then
   f.Writebool('FormPosition','Maximized',true)
  else begin
   F.WriteInteger('FormPosition','top',Form1.top);
   F.WriteInteger('FormPosition','left',Form1.Left);
   F.WriteInteger('FormSize','Width', Form1.Width);
   F.WriteInteger('FormSize','height', Form1.Height);
   f.Writebool('FormPosition','Maximized', false)
  end;

точно также и для минимизэд)

Yanis

Дата 21.7.2005, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Просто добавлю, что если внимательно смотреть справку по использованию TIniFile, то можно наткнуться на такой код:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Top     := Ini.ReadInteger( 'Form', 'Top', 100 );
    Left    := Ini.ReadInteger( 'Form', 'Left', 100 );
    Caption := Ini.ReadString( 'Form', 'Caption', 'New Form' );
    if Ini.ReadBool( 'Form', 'InitMax', false ) then
      WindowState = wsMaximized
    else

      WindowState = wsNormal;
  finally
    TIniFile.Free;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action TCloseAction)
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Ini.WriteInteger( 'Form', 'Top', Top);
    Ini.WriteInteger( 'Form', 'Left', Left);
    Ini.WriteString( 'Form', 'Caption', Caption );
    Ini.WriteBool( 'Form', 'InitMax', WindowState = wsMaximized );

  finally
    TIniFile.Free;
  end;
end;

Это сообщение отредактировал(а) Yanis - 21.7.2005, 00:17

--------------------

*щёлк*

Coder

Дата 21.7.2005, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11

запись:

Код


  case Form1.WindowState of
    wsMinimized: FINIT.WriteInteger('Forms','State',0);
    wsMaximized: FINIT.WriteInteger('Forms','State',2);
    wsNormal: FINIT.WriteInteger('Forms','State',1);
 end;

чтение:

Код


  case FINIT.ReadInteger('Forms','State',2) of
  0 : Form1.WindowState:=wsMinimized;
  2 : Form1.WindowState:=wsMaximized;
  1 : Form1.WindowState:=wsNormal;
  end;

Добавлено @ 10:29
цифры не по порядку, только щас заметил... уже и не помню почему этот код со старого проекта

Quadr0

Дата 21.7.2005, 17:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:45

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »