我按照书上讲的做了个小例子。我想把它加入到计划任务中,以做定时提醒。但不知怎么向它传递参数(这样就可以传送不同的提示信息了)。主要代码如下:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Caption='欢迎您到飞翔电脑、英语班来' then
label1.Caption:='Welcom to Feixiang Computer,English Class'
else
label1.Caption:='欢迎您到飞翔电脑、英语班来';
for x:=1 to 10 do
beep;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Caption='欢迎您到飞翔电脑、英语班来' then
label1.Caption:='Welcom to Feixiang Computer,English Class'
else
label1.Caption:='欢迎您到飞翔电脑、英语班来';
for x:=1 to 10 do
beep;
end;
解决方案 »
- delphi2010怎么操作EXCEL??
- 请帮我看一下这个语法错误,在线等!谢谢!
- cxGrid有查找的功能吗
- 大侠们,给小弟推荐几个有关于delphi,sql server的英文文章的网站吧。
- 用ServerSocket和ClientSocket能作Internet应用程序吗
- 大家好,我的水平不好,现在想自己练习做个小的图书管理系统,望有经验人给点程序结构的建议.
- webbrowser的问题?Navigate Refresh?
- 急!用Query进行汇总,如何返回汇总的值???
- 简单的问题,你会吗??
- Delphi6新增功能大家谈
- 在Panel1上显示一个Form
- 图片叠加,上面一张图片按一定比例透明,求快一点的算法,只用VCL实现,急
你的代码让效果一闪就过了,不能实现你要的效果啊,Study
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.Caption=paramStr(1) then
label1.Caption:=paramStr(2)
else
label1.Caption:=paramStr(1);
for x:=1 to 10 do
beep;
end;
真的不错,感谢singun!
不会只是一闪就没了呀