Показать сообщение отдельно
  #8  
Старый 22.09.2008, 23:43
жекаизжека жекаизжека вне форума
Начинающий
 
Регистрация: 10.09.2008
Сообщения: 193
Репутация: 10
По умолчанию

вроде работает )) а как можно сделать запоминание чекбокса, что бы он запоминался включен он или нет
вот код на запоминание формы
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
  Ini:TIniFile;
begin
//запоминание окна
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\data.ini');
Top:=Ini.ReadInteger('FORM','TOP',0);
Left:=Ini.ReadInteger('FORM','LEFT',0);
Height:=Ini.ReadInteger('FORM','HEIGHT',100);
Width:=Ini.ReadInteger('FORM','WIDTH',150);
Ini.Free;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
Ini:TIniFile;
begin
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\data.ini');
Ini.WriteInteger('FORM','TOP',Top);
Ini.WriteInteger('FORM','LEFT',Left);
Ini.WriteInteger('FORM','HEIGHT',Height);
Ini.WriteInteger('FORM','WIDTH',Width);
Ini.Free;
end;
Admin: Пользуемся тегами, иначе последуют санкции!

можно дописать на чек бокс
Ответить с цитированием