прозрачная форма

[ivan12]

Здравствуйте господа программисты!

Прошу помочь решить проблему.

Делаю форму с дыркой вот так:

Form1->AlphaBlendValue=255;
Form1->TransparentColor=true;
Form1->Panel1->Color=12;
Form1->TransparentColorValue=12;

Там где Panel1 получается прозрачная дырка. Все работает и на XP и на Vista и на Windows 7

Проблема в том, что на XP дырка прозрачна для кликов мыши, а на Vista и на Windows 7 - нет
Как сделать дырку прозрачной для кликов мыши на висте и на windows 7

Спасибо!

[nuqta]

Сообщение от ivan12

Здравствуйте господа программисты!

Прошу помочь решить проблему.

Делаю форму с дыркой вот так:

Form1->AlphaBlendValue=255;
Form1->TransparentColor=true;
Form1->Panel1->Color=12;
Form1->TransparentColorValue=12;

Там где Panel1 получается прозрачная дырка. Все работает и на XP и на Vista и на Windows 7

Проблема в том, что на XP дырка прозрачна для кликов мыши, а на Vista и на Windows 7 - нет
Как сделать дырку прозрачной для кликов мыши на висте и на windows 7

Спасибо!

Дыру можно ещё так сделать:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
HRGN a=CreateRoundRectRgn(0,0,300,300,10 ,10);
HRGN b=CreateRoundRectRgn(100,100,200,20 0,10,10);
CombineRgn(a, a, b, RGN_XOR);

SetWindowRgn(Handle,a,true);
}