Delphi控件源码

开发平台：
Delphi

da_csszs.pas：源码内容
							unit da_csszs;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, TFlatButtonUnit,inifiles;
type
  Tda_cssz = class(TForm)
    gbtitle: TGroupBox;
    Topic: TEdit;
    gbbg: TGroupBox;
    open: TOpenDialog;
    topicSet: TFlatButton;
    BgSet: TFlatButton;
    BgRestore: TFlatButton;
    FlatButton4: TFlatButton;
    procedure FlatButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure topicSetClick(Sender: TObject);
    procedure BgSetClick(Sender: TObject);
    procedure BgRestoreClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  da_cssz: Tda_cssz;
implementation
uses mainfrms,da_comman;
var 
  inifile: TiniFile;
{$R *.dfm}
procedure Tda_cssz.FlatButton4Click(Sender: TObject);
begin
 close;
end;
procedure Tda_cssz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  da_cssz:=nil;
end;
procedure Tda_cssz.FormShow(Sender: TObject);
begin
 Topic.Text:=sTopic;
end;
procedure Tda_cssz.topicSetClick(Sender: TObject);
begin
 if Topic.Text <> '' then
  begin
    iniFile := TIniFile.Create(sPath + 'perset.ini');
    iniFile.WriteString('sTopic', 'topic', Trim(Topic.Text));
    MessageBox(self.Handle, '主题设置成功!', '提示', mb_IconInformation + mb_Ok);
    mainfrm.Caption := Trim(Topic.Text);
    iniFile.Free;
  end
  else
  begin
    MessageBox(self.Handle, '请输入系统主题!', '提示', mb_IconInformation + mb_Ok);
    Topic.SetFocus;
  end;
end;
procedure Tda_cssz.BgSetClick(Sender: TObject);
var fName,fNameo:string;
begin
  if open.Execute then
  begin
    iniFile := TIniFile.Create(sPath + 'perset.ini');
    fNameo := iniFile.ReadString('sysbg', 'bground', 'main.jpg');
    if FileExists(sPath + fNameo) and (fNameo <> 'main.jpg') then
      DeleteFile(sPath + fNameo);
    fName := ExtractFileName(open.FileName);
    CopyFile(Pchar(open.FileName),pchar('' + 'images' + fName), false);
    iniFile.WriteString('sysbg', 'bground', 'images' + fName);
    mainfrm.image1.Picture.LoadFromFile('' + 'images' + fName);
    MessageBox(self.Handle, '背景设置成功!', '提示', mb_IconInformation + mb_Ok);
    iniFile.Free;
  end;
end;
procedure Tda_cssz.BgRestoreClick(Sender: TObject);
var fName:string;
begin
  iniFile := TIniFile.Create(sPath + 'perset.ini');
  fName := iniFile.ReadString('sysbg', 'bground', '');
  if FileExists(sPath + fName) and (fName <> 'main.jpg') then
    DeleteFile(sPath + fName);
  iniFile.WriteString('sysbg', 'bground', 'main.jpg');
  mainfrm.image1.Picture.LoadFromFile(sPath + 'main.jpg');
  MessageBox(self.Handle, '背景复原成功!', '提示', mb_IconInformation + mb_Ok);
  iniFile.Free;
end;
end.

						