![]()
В предыдущей статьи мы говорили о том, как сделать прозрачную форму на Делфи, а сейчас приведем вариант прозрачной формы с очень медленным исчезанием...Итак, для того чтобы форма исчезала чрезвычайно медленно, пробуем использовать вот такой код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i, cavb : 0..255;
begin
if AlphaBlend=False then
begin
AlphaBlendValue:=255;
AlphaBlend:=True;
end;
cavb:=AlphaBlendValue;
for i := cavb downto 0 do
begin
AlphaBlendValue := i;
Application.ProcessMessages;
Sleep(5) //5 - задержка в милисекундах<<<<<<<<<<<
end
end;
П.С. Кстати выходит достаточно прикольная штука :)
Спонсор поста: задаетесь вопросом как раскрутить сайт? Постоянно ищете возможность грамотно и с небольшим бюджетом раскрутить собственный веб-ресурс? Обратите внимание на сервис Rookee.ru. Данная система не только сэкономит ваше время и деньги, а и с помощью новейших автоматических методик продвижения поможет вашему сайту занять топовые позиции в выдаче поисковых систем.