Fenetre triangulaire
Résolu
cs_snake6
Messages postés
29
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2010
-
8 avril 2005 à 22:48
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 8 avril 2005 à 23:14
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 - 8 avril 2005 à 23:14
2 réponses
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
12
8 avril 2005 à 23:11
8 avril 2005 à 23:11
Voilà comment, à partir d'une form1, afficher une form2 triangulaire. Tu es libre ensuite de régler les dimensions (pour les points, utilise x en absisce et y en ordonnée )
Remarque : cette technique marche à l'exécution, pas à la conception, donc arrange-toi pour qu'aucun de tes composants ne soient dans les zones tronquées
var
sommets:Array[0..8] of TPoint;
begin
Sommets[0].x:=100; Sommets[0].y:=0;
Sommets[1].x:=0; Sommets[1].y:=100;
Sommets[2].x:=200; Sommets[2].y:=100;
SetWindowRgn(Form2.Handle,CreatePolygonRgn(Sommets,3,WINDING),true);
end;
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
Remarque : cette technique marche à l'exécution, pas à la conception, donc arrange-toi pour qu'aucun de tes composants ne soient dans les zones tronquées
var
sommets:Array[0..8] of TPoint;
begin
Sommets[0].x:=100; Sommets[0].y:=0;
Sommets[1].x:=0; Sommets[1].y:=100;
Sommets[2].x:=200; Sommets[2].y:=100;
SetWindowRgn(Form2.Handle,CreatePolygonRgn(Sommets,3,WINDING),true);
end;
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
12
8 avril 2005 à 23:14
8 avril 2005 à 23:14
dsl, une petite bourde... :
var
sommets:Array[0..2] of TPoint;
bien sûr...
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
var
sommets:Array[0..2] of TPoint;
bien sûr...
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
