Плавные появление и исчезновение формы

[FaTaL]

Да зачем использовать таймер? Есть же AnimateWindow.

[Smitt&Wesson]

Если кому интеесно, как это зделать в С++ Builder, вот код:

// Плавное открывание - закрывание формы приложения

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
SetWindowLong(Form1->Handle,GWL_EXSTYLE,GetWindowLong(Form1->Handle,GWL_EXSTYLE) & ~WS_EX_LAYERED);
SetWindowLong(Form1->Handle,GWL_EXSTYLE,GetWindowLong(Form1->Handle,GWL_EXSTYLE) | WS_EX_LAYERED);
}
//---------------------------------------------------------------------------
// Открываем окно
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Timer1->Tag = 0;
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
// Закрываем окно
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if(Form1->Tag)
{
  CanClose = false;
  Timer1->Enabled = true;
}
}
//---------------------------------------------------------------------------
// Таймер манипулиования с прозрачностью формы
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(Form1->Tag)
{
  if(Timer1->Tag > 0)
  {
    SetLayeredWindowAttributes(Form1->Handle, 0, Timer1->Tag, LWA_ALPHA);
    Timer1->Tag-=5;
  }
  else
  {
    Form1->Tag = 0;
    Timer1->Enabled = false;
    Form1->Close();
  }
}
else
{
  if(Timer1->Tag < 255)
  {
    SetLayeredWindowAttributes(Form1->Handle, 0, Timer1->Tag, LWA_ALPHA);
    Timer1->Tag+=5;
  }
  else
  {
    Form1->Tag = 1;
    Timer1->Enabled = false;
  }
}
}
//---------------------------------------------------------------------------

[BukTop2009]

Пока ещё с делфи не определились а ты про С++ пишешь)

Misher уже совсем близок к цели! Ты по ходу почти решил задачу, скажи как сделать чтобы я не тыкал кнопкой чтоб закрывалась форма. А чтоб автоматом открылась допустим сек 1-2 поторчала и сама закрылась, далее уже другие формы.

[eval]

Self.lose

полный лосе ... вам уже все тут дали рассказали, осталось дело за малым.

[BukTop2009]

Наверняка... Спасибо.

[xrob]

чтобы форма появлялась/исчезала только один раз, а не в цикле,
думаю вполне логично, что нужно таймер то все-таки остановить после появления/исчезания формы.

но здесь есть еще одна не очень приятная проблема...
если форма достаточно растянута, на весь экран, например,
то при переключении Form1.AlphaBlend:=true; форма мигнет черным экраном...
именно при включении прозрачности, причем не важно с каким значением,
если Form1.AlphaBlendValue = 255 - все равно мигнет...

причем чем больше форма - тем заметнее мигание.
кто-нибудь знает как это исправить?

[antoxamad]

кода на три строчки:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.AlphaBlendValue := Form1.AlphaBlendValue - 5;
  if Form1.AlphaBlendValue=0 then
  Form1.Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Timer1.Enabled=false then
   begin
   CanClose := false;
   Timer1.Enabled := true;
   exit;
   end;
CanClose := true;
end;

[RingK]

AnimateWindow все же лучше.