有3个form,

[code delphi]
procedure TForm1.Timer3Timer(Sender: TObject);//提醒时间循环
begin
timer3.Enabled := false;
timer2.Enabled := false;
timer3.Interval := 58000;
cnt :=58;
timer3.Enabled := true;
timer2.Enabled := true;
StartAll;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
if Form5.Top < Screen.Height - Form5.Height -30 then
begin
Timer1.Enabled := false;
i:=10;
Timer3.Enabled :=True;
end
else
Form5.Top := Form5.Top -1;
end;

procedure TForm5.Timer2Timer(Sender: TObject);
begin
if not assigned(Form5) then
form5 := Tform5.Create(Self);
form5.Top := Screen.Height -30;
form5.Left := Screen.Width - form5.Width;
form5.Timer1.Enabled := True;
Form5.FormStyle :=fsStayOnTop;
form5.Show;
Form5.Color := clWebPaleGoldenrod;
Panel1.Color :=clWebPaleGoldenrod;
LabeledEdit1.Color:=clWebPaleGoldenrod;
Memo1.Color :=clWebPaleGoldenrod;
end;
procedure TForm5.Timer3Timer(Sender: TObject);//用于间隔几秒运行
begin
label1.Caption :=IntToStr(i) '秒钟后窗口自动关闭.';
//LabeledEdit1.SetFocus ;
I:=I-1;
if I=0 then
begin
Timer3.Enabled:=false;
Form5.Close;

procedure TForm2.Timer1Timer(Sender: TObject);//当前数据库每日提醒运行
begin
Label1.Caption :=FormatDateTime('HH:mm',form1.ABSTable2.FieldByName('提醒时间').Asdatetime) ;
label2.Caption :=Form1.ABSTable2.FieldByName('提醒内容').AsString ;
form1.ABSTable1.Refresh ;
if (Form1.ABSTable2.eof) then
begin
//if (FormatDateTime('yyyy-MM-dd',now)=FormatDateTime('yyyy-MM-dd',form1.ABSTable2.FieldByName('提醒日期').AsDateTime))
// or (formatdatetime('ddd',now)=form1.ABSTable2.FieldByName('提醒周期').asstring) or
// (FormatDateTime('MM-dd',Now)=FormatDateTime('MM-dd',Form1.ABSTable2.FieldByName('提醒月份').AsDateTime))
// or (DateToStr(Form1.ABSTable2.FieldByName('提醒时间').AsDateTime) <>'') then
// begin
// if (Form1.ABSTable2.FieldByName('提醒日期').AsString = '' ) and (form1.ABSTable2.FieldByName('提醒周期').asstring='') and
// (DateToStr(Form1.ABSTable2.FieldByName('提醒时间').AsDateTime) <>'')and(form1.ABSTable2.FieldByName('提醒月份').Asstring='') then
//
Form1.ABSTable2.first;
end
else
Form1.ABSTable2.next;
end;
//end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !