unit2.~pas

delphi编写的时钟程序

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SetFormAsText(AStr:   string);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var   
      vStr:string;
begin
      vStr:=formatdatetime('hh:mm:ss',time);
      SetFormAsText(vStr);
end;


procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
      ReleaseCapture;
      Perform(WM_SYSCOMMAND,$f012,0);
      //上面两句是用来拖动窗体
end;

procedure   TForm2.SetFormAsText(AStr:   string);
  var
      rgn:HRGN;
  begin
      BeginPath(Canvas.Handle);
      SetBkMode(   Canvas.Handle,   TRANSPARENT   );
      Canvas.Font.Name:=   '宋体';
      Canvas.Font.Size:=100;
      Canvas.TextOut(   20,   20,   AStr);//用AStr作为form的形状
      EndPath(Canvas.Handle);
      rgn:=   PathToRegion(Canvas.Handle);
      SetWindowRgn(   Handle,   rgn,   true   );
end;


procedure TForm2.Timer1Timer(Sender: TObject);
var
      vStr:string;
  begin
      vStr:=formatdatetime('hh:mm:ss',time);
      SetFormAsText(vStr);
end;

procedure TForm2.FormClick(Sender: TObject);
begin
  Form1.Show;
  Form2.Visible :=False;
end;

end.