Fonctionnalité click through
jace1975
Messages postés
81
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
12 octobre 2007
-
5 mai 2006 à 15:13
jace1975 Messages postés 81 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 12 octobre 2007 - 5 mai 2006 à 16:54
jace1975 Messages postés 81 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 12 octobre 2007 - 5 mai 2006 à 16:54
2 réponses
jace1975
Messages postés
81
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
12 octobre 2007
1
5 mai 2006 à 16:52
5 mai 2006 à 16:52
en explorant une autre voie, j'arrive à un résultat intéressant:
avec une form dont la propriété borderstyle est à bsnone, et en en utilisant la proc suivante ca marche :
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
LeftRgn : HRGN; RightRgn : HRGN; NewRgn : HRGN; pa,pb:tpoint;
begin
pa:=form1.ScreenToClient(mouse.CursorPos);
LeftRgn := CreaterectRgn(0,0,width, height);
RightRgn := CreaterectRgn(pa.X-1 ,pa.y-1,pa.X+1 ,pa.y+1 );
NewRgn := CreateRectRgn(0,0,0,0);
CombineRgn(NewRgn,LeftRgn,RightRgn,RGN_diff);
DeleteObject(LeftRgn);
DeleteObject(RightRgn);
SetWindowRgn(handle,NewRgn,false);
end;
Mais reste un pb lors du déplacement d'un fichier sur le bureau et sous ma form: l'icone de drag an drop apparait et le déplacement du fichier n'est pas dessiné... donc toujours besoin de vos conseils
avec une form dont la propriété borderstyle est à bsnone, et en en utilisant la proc suivante ca marche :
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
LeftRgn : HRGN; RightRgn : HRGN; NewRgn : HRGN; pa,pb:tpoint;
begin
pa:=form1.ScreenToClient(mouse.CursorPos);
LeftRgn := CreaterectRgn(0,0,width, height);
RightRgn := CreaterectRgn(pa.X-1 ,pa.y-1,pa.X+1 ,pa.y+1 );
NewRgn := CreateRectRgn(0,0,0,0);
CombineRgn(NewRgn,LeftRgn,RightRgn,RGN_diff);
DeleteObject(LeftRgn);
DeleteObject(RightRgn);
SetWindowRgn(handle,NewRgn,false);
end;
Mais reste un pb lors du déplacement d'un fichier sur le bureau et sous ma form: l'icone de drag an drop apparait et le déplacement du fichier n'est pas dessiné... donc toujours besoin de vos conseils
jace1975
Messages postés
81
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
12 octobre 2007
1
5 mai 2006 à 16:54
5 mai 2006 à 16:54
précision : l'alphablending est à true avec pour valeur 100
