[Ama]

Добрый вечер!!! Я создаю форму, меняя стиль на :

Код:

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WindowClass.Style := Params.WindowClass.style or $20000 or CS_SAVEBITS;
  Params.Style:= Params.Style or WS_POPUP;
  Params.ExStyle:= Params.ExStyle or WS_EX_TOOLWINDOW or
                   WS_EX_TOPMOST{ or WS_EX_NOACTIVATE};
end;

Вопрос такой. Эта форма появляется и исчезает плавно (использую таймер), так вот при исчезании формы фон за формой иногда не восстанавливается, т.е. при появлении был один фон потом пока форма была видна фон изменился, а по формой он не меняется. Как мне его восстановить его принудительно. Извиняюсь конечно если коряво объяснил.