fenetres bizzarres

bonjour a tous,
J'ai lu dans un article qu'on pouvait faire des fenetres "bizarres" (de part leurs formes) grace a une api de windows. Malheureusement, l'article etait ecrit pour visual basic, et je ne sais pas comment ont fait pour declarer et utiliser une api de windows en delphi.
est ce que quelqu'un pourrait m'aider en me disant comment on fait pour declarer une fonction utilisant une api de windows??? (j'essairai alors d'adapter l'api que je veux utiliser tout seul, pour m'entrainer)

Je n'ai pas le temps de recopier tout le code visual basic, mais si ca interresse quelqu'un je pourrai le transmettre.

@ + et merci d'avance
ak47

Il y a un source récent de Bestiol à ce sujet :
http://www.delphifr.com/article.aspx?Val=1992
Il y en a un autre de fabiin un peu plus vieux.

--- Nono du Moulin ---


-------------------------------
Réponse au message :
-------------------------------

bonjour a tous,
J'ai lu dans un article qu'on pouvait faire des fenetres "bizarres" (de part leurs formes) grace a une api de windows. Malheureusement, l'article etait ecrit pour visual basic, et je ne sais pas comment ont fait pour declarer et utiliser une api de windows en delphi.
est ce que quelqu'un pourrait m'aider en me disant comment on fait pour declarer une fonction utilisant une api de windows??? (j'essairai alors d'adapter l'api que je veux utiliser tout seul, pour m'entrainer)

Je n'ai pas le temps de recopier tout le code visual basic, mais si ca interresse quelqu'un je pourrai le transmettre.

@ + et merci d'avance
ak47

Il y a un source récent de Bestiol à ce sujet :
http://www.delphifr.com/article.aspx?Val=1992
Il y en a un autre de fabiin un peu plus vieux.

--- Nono du Moulin ---


-------------------------------
Réponse au message :
-------------------------------

bonjour a tous,
J'ai lu dans un article qu'on pouvait faire des fenetres "bizarres" (de part leurs formes) grace a une api de windows. Malheureusement, l'article etait ecrit pour visual basic, et je ne sais pas comment ont fait pour declarer et utiliser une api de windows en delphi.
est ce que quelqu'un pourrait m'aider en me disant comment on fait pour declarer une fonction utilisant une api de windows??? (j'essairai alors d'adapter l'api que je veux utiliser tout seul, pour m'entrainer)

Je n'ai pas le temps de recopier tout le code visual basic, mais si ca interresse quelqu'un je pourrai le transmettre.

@ + et merci d'avance
ak47

merci, je vais essayer de comprendre tout ca a tete reposee.



-------------------------------
Réponse au message :
-------------------------------

Il y a un source récent de Bestiol à ce sujet :
http://www.delphifr.com/article.aspx?Val=1992
Il y en a un autre de fabiin un peu plus vieux.

--- Nono du Moulin ---


-------------------------------
Réponse au message :
-------------------------------

bonjour a tous,
J'ai lu dans un article qu'on pouvait faire des fenetres "bizarres" (de part leurs formes) grace a une api de windows. Malheureusement, l'article etait ecrit pour visual basic, et je ne sais pas comment ont fait pour declarer et utiliser une api de windows en delphi.
est ce que quelqu'un pourrait m'aider en me disant comment on fait pour declarer une fonction utilisant une api de windows??? (j'essairai alors d'adapter l'api que je veux utiliser tout seul, pour m'entrainer)

Je n'ai pas le temps de recopier tout le code visual basic, mais si ca interresse quelqu'un je pourrai le transmettre.

@ + et merci d'avance
ak47

voici un bout de code que tu colle dant l'évenement FormCreate de ta form


procedure TForm1.FormCreate(Sender: TObject);
Var
     P:Array[0..24] of TPoint;
     CLFRgn:HRgn;
Begin
     P[0]:=Point(0,0);
     P[1]:=Point(50,Form1.Height div 6);
     P[2]:=Point(0,2*(Form1.Height div 6));
     P[3]:=Point(50,3*(Form1.Height div 6));
     P[4]:=Point(0,4*(Form1.Height div 6));
     P[5]:=Point(50,5*(Form1.Height div 6));
     P[6]:=Point(0,Form1.Height);
     P[7]:=Point(Form1.Width div 6,Form1.Height -50);
     P[8]:=Point(2*(Form1.Width div 6),Form1.Height);
     P[9]:=Point(3 *(Form1.Width div 6),Form1.Height -50);
     P[10]:=Point(4*(Form1.Width div 6),Form1.Height);
     P[11]:=Point(5 *(Form1.Width div 6),Form1.Height -50);
     P[12]:=Point(Form1.Width,Form1.Height);
     P[13]:=Point(Form1.Width-50,5*(Form1.Height div 6));
     P[14]:=Point(Form1.Width,4*(Form1.Height div 6));
     P[15]:=Point(Form1.Width-50,3*(Form1.Height div 6));
     P[16]:=Point(Form1.Width,2*(Form1.Height div 6));
     P[17]:=Point(Form1.Width-50,Form1.Height div 6);
     P[18]:=Point(Form1.Width,0);
     P[19]:=Point(5*(Form1.Width div 6),50);
     P[20]:=Point(4*(Form1.Width div 6),0);
     P[21]:=Point(3*(Form1.Width div 6),50);
     P[22]:=Point(2*(Form1.Width div 6),0);
     P[23]:=Point(Form1.Width div 6,50);
     P[24]:=Point(0,0);
     CLFRgn:=CreatePolygonRgn(P,24,Alternate);
     SetWindowRgn(Form1.Handle,CLFRgn,True);
End;