对于d5来说是很简单的事情

Question

我想编一个时钟程序，功能很简单，就是在窗体上显示系统时间，该窗口能一直浮在最面上，不会被其他的窗口覆盖！！

Answer 1

form的属性里好像用个attop吧 ,可以在显示时设置吧，自己察看一下。应该有这个属性的

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Timer1Timer(Sender: TObject);
begin
   edit1.text:=DateTimetoStr(Now);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
   form1.FormStyle:=fsStayOnTop;
end;end.

Answer 3

对不去，我指的是不会被其他应用程序挡住，就像winamp一样，始终在上面