e25.pas

delphi的学习资料

unit E25;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ExtDlgs, Buttons, JPEG;

type
  TfmE25 = class(TForm)
    LbHH: TLabel;
    LbMM: TLabel;
    LbSS: TLabel;
    Timer1: TTimer;
    img0: TImage;
    OpenPicDial: TOpenPictureDialog;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    img2: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  end;

var
  fmE25: TfmE25;
  hh,mm,ss,ms: word;


implementation

{$R *.dfm}

procedure TfmE25.Timer1Timer(Sender: TObject);
var
  now0: TTime;
  sms: string;
begin
  now0:=now();
  DecodeTime(now0,hh,mm,ss,ms);
  LbHH.Caption:=IntToStr(hh)+':';
  LbMM.Caption:=IntToStr(mm)+':';
  sms:=FormatFloat('0', ms/100);
  if sms='10' then
     sms:='0';
  LbSS.Caption:=FormatFloat('00',ss)+'.'+sms;
end;


procedure TfmE25.FormCreate(Sender: TObject);
begin
  OpenPicDial.InitialDir:='../Img_ex/';
  OpenPicDial.Filter := '图片 (*.jpg)|*.jpg|图片(*.bmp)|*.bmp';
  OpenPicDial.FilterIndex := 1;         // 显示所有文件
end;

procedure TfmE25.BitBtn1Click(Sender: TObject);
begin
  if OpenPicDial.Execute then
    img0.Picture.LoadFromFile(OpenPicDial.FileName);
end;

procedure TfmE25.BitBtn2Click(Sender: TObject);
begin
//  img2.Picture:=img0.Picture;
  img2.Picture.Assign(img0.Picture);
end;

end.