[D2005 PE] FadeForm

[GuenterS]

Ausblenden funktioniert so

Delphi-Quellcode:

procedure TFadeForm.DoHide;
begin
// Ausblenden
  if pFadeOut then
  begin
    AlphaBlendValue := 255;
    while AlphaBlendValue > 5 do
    begin
      AlphaBlendValue := AlphaBlendValue - 10;
      Refresh;
      Sleep(10);
    end;
  end;
  inherited;
end;

Beim Einblenden ist es plötzlich da.