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');但是中间的代码就不执行了。
如果双击托盘,让程序在桌面上打开时,上面代码就全部执行。各位老大,是什么原因呀?
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');但是中间的代码就不执行了。
如果双击托盘,让程序在桌面上打开时,上面代码就全部执行。各位老大,是什么原因呀?
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;
这里都不执行?段点跟踪过了?
本人刚从delphi7升级过来,发现以前设置断点,现在不起作用了
debug information是true了
用F5设置断点后,然后F9.到断点后停止,再按F8逐步跟踪,怎么没反应呢?
delphi7这样用是可以的呀
找到原因了,谢谢。