使用Timer，通过标题栏上的“关闭”按钮关闭Delphi表格(Delphi Form closing by Close button on caption bar using Timer)

 我有一个带有一个FadeIn Timer和一个FadeOut Timer的项目。 我的表单由FadeIn Timer创建，由FadeOut Timer关闭。 最初启用FadeIn Timer并禁用FadeOut Timer。 淡入定时器代码： 
 
if MainForm.AlphaBlendValue >= 235 then
  Timer01.Enabled := false 
else 
  MainForm.AlphaBlendValue := MainForm.AlphaBlendValue + 5;
 
 FadeOut定时器代码： 
 
if MainForm.AlphaBlendValue <= 0 then 
  Timer02.Enabled := false 
else 
  MainForm.AlphaBlendValue := MainForm.AlphaBlendValue - 5; 
close;
 
 我的要求是，如果我点击标题栏的“X”按钮，FadeOut Timer将处于活动状态。 所以我定义了 
 
if Msg.Result=htClose then 
  FadeOutTimer.Enabled:=true;
 
 但它不起作用。 请帮我。 

I have a project with one FadeIn Timer and One FadeOut Timer. My form is created by FadeIn Timer and is closed by FadeOut Timer. Initially FadeIn Timer is enabled and FadeOut Timer is disabled. FadeIn Timer Code :
 
if MainForm.AlphaBlendValue >= 235 then
  Timer01.Enabled := false 
else 
  MainForm.AlphaBlendValue := MainForm.AlphaBlendValue + 5;
 
FadeOut Timer Code :
 
if MainForm.AlphaBlendValue <= 0 then 
  Timer02.Enabled := false 
else 
  MainForm.AlphaBlendValue := MainForm.AlphaBlendValue - 5; 
close;
 
My requirement is that the FadeOut Timer will be active if I click on the "X" Button of the Caption Bar. So I defined
 
if Msg.Result=htClose then 
  FadeOutTimer.Enabled:=true;
 
But it not working. Please help me.

原文：https://stackoverflow.com/questions/11500636