Jul 10

Как сделать так чтобы прозрачная форма исчезала очень медленно?

В предыдущей статьи мы говорили о том, как сделать прозрачную форму на Делфи, а сейчас приведем вариант прозрачной формы с очень медленным исчезанием...Итак, для того чтобы форма исчезала чрезвычайно медленно, пробуем использовать вот такой код:

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;

Кстати выходит достаточно прикольная штука  :) Ведь представляемая на ми форма выходит уникальной и довольно-таки оригинальной, что большинство из вас, скорее всего, оценит по достоинству! А кто не оценит, это его проблемы)))

Вобщем задачу стоящую перед нами, мы сумели успешно решить, поэтому сейчас мы будем прощатся с вами, читайте нас в дальнейшем!

Желаем вам успешного пинга!

П.С. Желаете скачать наиболее оптимальную и самую новую версию всемизвестной программы Фотошоп? Без проблем скачать фотошоп абсолютно бесплатно в любой версии всегда представляеться возможным на ресурсе allphotoshopcs.ru!


Поделитесь вашими мыслями

Поддерживаемые теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>