Transparent FormClose
Czy widzieliście nieraz aplikacje, które przy zamknięciu robiły się stopniowo przeźroczyste aż w końcu aplikacja zostaje zamknięta? Poniższy kod prezentuje jak można to zrobić korzystając z wbudowanych narzędzi Delphi.
Ok według życzenia.
procedure TForm1.ZamknijClick(Sender: TObject);
begin
AlphaBlendValue := 255 ;
AlphaBlend := True ;
while AlphaBlendValue > 0 do
begin
AlphaBlendValue := AlphaBlendValue -1 ;
Application.ProcessMessages ;
Sleep(10);
end;
ModalResult := mrOk ;
Close ;
end;
begin
AlphaBlendValue := 255 ;
AlphaBlend := True ;
while AlphaBlendValue > 0 do
begin
AlphaBlendValue := AlphaBlendValue -1 ;
Application.ProcessMessages ;
Sleep(10);
end;
ModalResult := mrOk ;
Close ;
end;
Ok według życzenia.
koval_s dnia 08-02-2010 15:53
Kolega: Alkuzad, zapomniał jeszcze dodać, że jak się umieści w: onClose, to należy usunąć: ModalResult := mrOk ; Close ;, ale na pewno chciał to powiedzieć, pozdrawiam...
Alkuzad dnia 03-02-2010 17:57
przydałaby się wzmianka dla mniej-zapoznanych, że dobrze takie coś wstawić w onClose formy.
