كيف يحتفظ البرنامج بأخر شكل بعد التغييرات عليه

[issamdnn]

كثيراً ما يغيير المستخدم شكل البرنامج كألوان العناصر أو الخطوط أو أي شيء في البرنامج وهذه طريقة الإحتفاظ بهذه التغييرات في التشغيل التالي للبرنامج :
1- أضف في القسم public التصريح التالي:

PHP كود :

public
    { Public declarations }

    constructor Create(AOwner: TComponent); override; // (1)
    procedure BeforeDestruction; override;  // (2) 


2-أضغط على Ctrl+Shift+C لتعبئة قلب الإجرائيتن:

PHP كود :

procedure TForm1.BeforeDestruction;
begin
  inherited;
  with TFileStream.Create(PreservePath + ClassName + '.sav',    fmCreate) do
  try
    WriteComponent(Self);
  finally
    Free;
  end; 


و

PHP كود :

constructor TForm1.Create(AOwner: TComponent);
begin  
  PreservePath := ExtractFilePath(Application.ExeName) + 
    'Preserve';
  if not DirectoryExists(PreservePath) then
    CreateDir(PreservePath);
  PreservePath := PreservePath + '\';
  if FileExists(PreservePath + ClassName + '.sav') then
  begin
    CreateNew(AOwner, 0);
    with TFileStream.Create(PreservePath + ClassName + '.sav',
                            fmOpenRead or fmShareDenyWrite) do
    try
      ReadComponent(Self);
    finally
      Free;
    end;
  end
  else
  inherited Create(AOwner);
end; 


وبذلك سيتم حفظ الإعدادات في مجلد PreservePath و بملف بلاحقة .sav في نفس مجلد البرنامج.

والله الموفق للجيمع.