unithelp.pas

delphi做的名片管理软件

unit UnitHelp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, jpeg, oxForm, StdCtrls, ExtDlgs, OleCtrls,
  AgentObjects_TLB;

type
  THelpFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
   

    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HelpFrm: THelpFrm;

implementation

{$R *.dfm}



procedure THelpFrm.FormCreate(Sender: TObject);
begin
{Label1.Caption:='沈阳托拉斯通技术有限公司';
Label2.Caption:='名片管理系统';
Label3.Caption:='版本:1.0';
Label4.Caption:='http://trustone.eicp.net';
Label5.Caption:='2006.11.06'; }
//窗口移动
    //ReleaseCapture;
    //Perform(wm_syscommand,$F012,0);
end;

procedure THelpFrm.Button1Click(Sender: TObject);
//var
  //GIF:TGIFImage;
  Var
  Peedy: IagentCtlCharacterEx;
  Request1,Request2: IagentCtlRequest;

begin
{ if OpenPictureDialog1.Execute then
 begin
     //Image1.Visible:=True;
     //Image1.Picture.LoadFromFile(openpicturedialog1.FileName);
     //ExtractFileName(OpenPictureDialog1.Files.Text);
      Screen.Cursor := crHourGlass;
  try
    GIF := TGIFImage.Create;
      try
       GIF.LoadFromFile(openpicturedialog1.FileName);
       Image1.Picture.Assign(GIF);
       // self.oxForm1.Images.Assign(self.Image1) ;
    finally
      GIF.Free;
    end;

  finally
    Screen.Cursor := crDefault;
 end  }

end;

end.