procedure Tmain_form.Timer1Timer(Sender: TObject);
begin
 ShowMessage('1');
//数据备份
if backup_flag1 ='0' then
if (FormatDateTime('hh:mm',Now)>=Trim(edit_time1.Text)) then
begin
   sp_backup.Click ;
   backup_flag1 :='1';
end;if backup_flag2 ='0' then
if (FormatDateTime('hh:mm',Now)>=Trim(edit_time2.Text)) then
begin
   sp_backup.Click ;
   backup_flag2 :='1';
end;
 ShowMessage('2');
end;在托盘下,可以显示 ShowMessage('1'), ShowMessage('2');但是中间的代码就不执行了。
如果双击托盘,让程序在桌面上打开时,上面代码就全部执行。各位老大,是什么原因呀?

解决方案 »

  1.   

    if backup_flag1 ='0' then
    if (FormatDateTime('hh:mm',Now)>=Trim(edit_time1.Text)) then
    begin
      sp_backup.Click ;
      backup_flag1 :='1';
    end;if backup_flag2 ='0' then
    if (FormatDateTime('hh:mm',Now)>=Trim(edit_time2.Text)) then
    begin
      sp_backup.Click ;
      backup_flag2 :='1';
    end;
    这里都不执行?段点跟踪过了?
      

  2.   

    to case5166:
    本人刚从delphi7升级过来,发现以前设置断点,现在不起作用了
      

  3.   

    断点不起作用试试:project->compiler->debug information
      

  4.   

    to case5166:
    debug information是true了
    用F5设置断点后,然后F9.到断点后停止,再按F8逐步跟踪,怎么没反应呢?
    delphi7这样用是可以的呀
      

  5.   

    to case5166:
    找到原因了,谢谢。