undate.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit Undate;

interface

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

type
  Tdate_frm = class(TForm)
    Pan_d: TPanel;
    YMD: TMonthCalendar;
    HMS: TDateTimePicker;
    btn_qd: TButton;
    btn_cel: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_celClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn_qdClick(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure getdate(handle:THandle);
  public
    { Public declarations }
    x:THandle;
    procedure setpos(pt:TPoint);

  end;

var
  date_frm: Tdate_frm;

implementation

{$R *.dfm}

procedure Tdate_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree; date_frm:=nil;
end;

procedure Tdate_frm.btn_celClick(Sender: TObject);
begin
  Visible:=False;
  close;
end;

procedure Tdate_frm.FormCreate(Sender: TObject);
begin  SetWindowPos(Handle,HWND_TOPMOST,Left,top,Width,Height,0);
end;

procedure Tdate_frm.btn_qdClick(Sender: TObject);
begin
  getdate(x);
end;

procedure Tdate_frm.FormDeactivate(Sender: TObject);
begin
  Visible:=False;
end;

procedure Tdate_frm.getdate(handle: THandle);
var
  str:string;
begin
  Visible:=False;
 SendMessage(handle,WM_SETTEXT,word(0),0);
  str:=DateToStr(YMD.Date)+' '+Timetostr(HMS.time);
while length(str)>0 do
begin
  SendMessage(handle,WM_CHAR,ord(str[1]),0);
  str:=copy(str,2,Length(str));
end;
 close;
end;

procedure Tdate_frm.setpos(pt:TPoint);
begin
    Left:=pt.X;Top:=pt.Y;
end;













procedure Tdate_frm.FormShow(Sender: TObject);
begin
  YMD.Date:=Date;
  HMS.Time:=Time;
end;

end.