首页 > 代码库 > 保存form配置信息INI
保存form配置信息INI
(*
功能：IniFormState
1 保存和读取 窗体的大小
2 保存和读取 窗体在屏幕上的位置
//让程序第1次出现在屏幕的中心点
获取屏幕的中心点
POSITION:poScreenCenter //不行
*)
//implementation
//{$R *.dfm}
uses IniFiles;//引用IniFiles
/// 写入信息到ini文件
procedure WriteformState(section:string;fileName:string;form:TForm);
var INIFILE: TIniFile;
begin
INIFILE:=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName);
try
INIFILE.WriteInteger(section,‘Left‘, form.Left);
INIFILE.WriteInteger(section,‘Top‘, form.Top);
INIFILE.WriteInteger(section,‘Height‘,form.Height);
INIFILE.WriteInteger(section,‘width‘, form.Width);
Finally
INIFILE.Free;
end;
end;
/// 从Ini读取信息并赋值
procedure ReadformState(section:string;fileName:string;form:TForm);
var
INIFILE: TIniFile;
frm1Left,frm1Top:integer;
begin
//FORM1 处于屏幕中心点时的left Top的值 用于第1次运行本程序时程序出现 在屏幕中心
frm1Left:=(Screen.Width-FORM.Width) div 2;
frm1Top :=(Screen.Height-FORM.Height) div 2;
INIFILE :=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName);
try
form.Left:= INIFILE.ReadInteger(section,‘Left‘, frm1Left);
form.Top:= INIFILE.ReadInteger(section,‘Top‘, frm1Top);
form.Height:= INIFILE.ReadInteger(section,‘Height‘,form.Height);
form.Width:= INIFILE.ReadInteger(section,‘Width‘, form.Width);
Finally
INIFILE.Free;
end;
end; //调用 //读取信息 ReadformState(‘MainForm‘,‘Config.ini‘,Form1);
//写入信息 WriteformState(‘MainForm‘,‘Config.ini‘,Form1);
来自为知笔记(Wiz)
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。