请问如何实现像电视右上角的时钟显示? 关键代码 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin Left:=10; Top:=10; Color:=clRed; Timer1Timer(nil);end;procedure TForm1.Timer1Timer(Sender: TObject);var rgn:HRGN; s:String;begin s:=FormatDateTime('hh:nn:ss',now); BeginPath(Canvas.Handle); SetBkMode( Canvas.Handle, TRANSPARENT ); Canvas.Font.Name:= '宋体'; Canvas.Font.Size:=100; Canvas.TextOut( 20, 20, s); EndPath(Canvas.Handle); rgn:= PathToRegion(Canvas.Handle); SetWindowRgn( Handle, rgn, true );end;end. exe加图标 特邀s11ss 高手) dll窗体能在主程序查询工作时,同时进行其它工作? 关于扫描线scanline[]的设置 如何格式化一个字符串 关于FASTREPORT在有些计算机上无法正常打印的问题,急!!!UP有分。 有关TCriticalSection的一个问题:两次enter和两次leave的问题。。。 请问我有一段SQL语句,如果在DELPHI中建立数据表呢? 一个关于临时表的储存过程的问题 dll简单问题 打印时若字符串太长在一行无法放下时,怎样自动换行 关于DBGridEh 下面的代码怎么查不出适合条件的记录呢?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Left:=10;
Top:=10;
Color:=clRed;
Timer1Timer(nil);
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
rgn:HRGN;
s:String;
begin
s:=FormatDateTime('hh:nn:ss',now);
BeginPath(Canvas.Handle);
SetBkMode( Canvas.Handle, TRANSPARENT );
Canvas.Font.Name:= '宋体';
Canvas.Font.Size:=100;
Canvas.TextOut( 20, 20, s);
EndPath(Canvas.Handle);
rgn:= PathToRegion(Canvas.Handle);
SetWindowRgn( Handle, rgn, true );
end;end.