程序定时弹出提示消息,要显示到最前面,如果windows系统在执行几个程序时,比如我在操作OFFICE,也要显示到前面,直到点击确定,请问怎样写.谢谢。
解决方案 »
- edit輸入時dbgrid可以跟著一起變
- 求教一个实际问题:给人编了一个小软件,关于电表记录的问题???
- 这句sql怎么不对,急呀!
- 小妹刚学delphi不久,有个combobox的小问题请教各位高手!!在线等!...
- 网上哪里有免费的Pascal教程啊?
- 如何用SQLConfigDataSource函数建一个带密码的Access文件?
- 一个小疑问,有兴趣的朋友进来看看
- 请各位大吓,帮我看看压缩ACCESS数据库的代码有什么错误?
- 请教播放avi视频的api
- 怎样动态的建立数据库和表?
- 关于如何动态的把ComBobox上所选择的Items添加到数据库中,在线等待,很急!!!
- delphi怎样写日志文件?就是我的串口每收到一次数据就写到文本文件里
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Timer1: TTimer;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='现在是:'+datetostr(now)+#13#10+' '+timetostr(now);
form1.Left:=round(screen.Width/2)-150;
form1.Top:=round(screen.Height/2)-75;
form1.Width:=300;
form1.Height:=150;
timer1.Interval:=1000;
timer2.Interval:=10000;
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:='现在是:'+datetostr(now)+#13#10+' '+timetostr(now);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
form1.WindowState:=wsMinimized;
form1.FormStyle:=fsNormal;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
form1.FormStyle:=fsStayOnTop;
form1.WindowState:=wsNormal;
form1.Left:=round(screen.Width/2)-150;
form1.Top:=round(screen.Height/2)-75;
form1.Width:=300;
form1.Height:=150;
end;end.这个是定时每十秒显示到屏幕中央。
很简单的。