При нажатии кнопки exit у меня активируется таймер и окно ставноится прозрачным.
Когда form1.AlphaBlentValue:= 0 программа завершает работу, вот код
| Код |
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.AlphaBlend:= true;
timer2.Enabled:= true;
timer2.Interval:= 1;
end;
|
и таймер
| Код |
procedure TForm1.Timer2Timer(Sender: TObject);
begin
form1.AlphaBlendValue:= form1.AlphaBlendValue-5;
if form1.AlphaBlendValue = 0 then
begin
timer2.Enabled:= false;
form1.Close;
end;
end;
|
Проблема в том что это все работает, но при нажатии крестика(правый верхний угол) она закрывается без AlphaBlenda... просто так
На form1.OnClose прописал тоже...
| Код |
form1.AlphaBlend:= true;
timer2.Enabled:= true;
timer2.Interval:= 1;
|
Как сделать чтоб она и на крестике так же закрывалась? |
