Арсений ну я на BCpp использовал альфаБленд. у меня вот так написано - все работает нормально
Цитата:
//---------------------------------------------------------------------------
void __fastcall Tform_main::ApplicationEvents1Deactivate(TObject *Sender)
{
for (int sch = 255; sch >= 150; sch--)
{
form_main->AlphaBlendValue = sch;
};
}
//---------------------------------------------------------------------------
void __fastcall Tform_main::ApplicationEvents1Activate(TObject *Sender)
{
form_main->AlphaBlendValue = 255;
}
//---------------------------------------------------------------------------
|
Тока надо это в паскакаль переделать
ЗЫ мсье, Захаров?