Discussion :

[YURI2006]

Salut,

Voila j'ai utilitaire , et j'aimerai bien posser un bouton sur la barre Caption de ma fenetre du Style "Close ,minimize...) ,comme le fait , le Mediaplayer, ou le Pilote de gestion de atre graphique NVedia (il ajoute un bouton utile su cette leur application , et meme NVedia sur toute les fenetre qui on le Style SW_Caption) , SVP si qcq connaiterai la methode ...

Merci,d'avence

Salut

[evarisnea]

salut,
regarde du coté de la JVCL, il y a un composant qui te permet de faire cela facilement (désolé je n'ai pas son nom), ou alors tu utilises l'API win$ (galère...)

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawCaption(Handle,Canvas.Handle,
        Rect(30,10,ClientWidth-30,10+GetSystemMetrics(SM_CYCAPTION)),
        DC_ACTIVE or DC_ICON or DC_TEXT or DC_GRADIENT);
  DrawFrameControl(Canvas.Handle,
                  Rect(ClientWidth-50,12,ClientWidth-30,
                        12+GetSystemMetrics(SM_CYSMICON)),
                  DFC_CAPTION,DFCS_CAPTIONCLOSE);
 
end;

@+ Phil

[sjrd]

salut,
regarde du coté de la JVCL, il y a un composant qui te permet de faire cela facilement (désolé je n'ai pas son nom), ou alors tu utilises l'API win$ (galère...)

Il s'agit de TJvCaptioButton

[edam]

pourqoi pas crée votre propre barre de titre avec un panel dans une forme avec borderbutton en None
pour déplassé voir; http://delphi.developpez.com/faq/?pa...#deplacerfiche
bon dev

[evarisnea]

pourqoi pas crée votre propre barre de titre avec un panel dans une forme avec borderbutton en None
pour déplassé voir; http://delphi.developpez.com/faq/?pa...#deplacerfiche
bon dev

c'est une solution !
mais personnellement je trouve qu'il y a plus simple, car avec celle ci il faudra gérer le deplacement de la form, le menu contextuel, bref des choses qui existent déjà par défaut...

[denokan]

pour le déplacement de la form tu peux tester ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If Sender Is TControl Then
  Begin
  ReleaseCapture;
  TControl(Sender).Perform (WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);
  End;
end;

[evarisnea]

pour le déplacement de la form tu peux tester ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If Sender Is TControl Then
  Begin
  ReleaseCapture;
  TControl(Sender).Perform (WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);
  End;
end;

merci denokan, mais ce n'est pas vraiment le problème.
là tu résout facilement le problème du déplacement de la form, mais qu'en sera-t'il du menu système ? de la couleur de la barre de titre (si elle est personalisée pas de problème mais si elle doit respecter le thème de win$ ?) ?
bref j'essaie juste de dire que si une solution a déjà été implémentée (et testée et débuggée) pour un problème donné, il est généralement préférable de l'utiliser ou de s'en servir comme base (sinon à quoi servirait la POO ?).

[basnifo]

salut

En combinant ces codes et en faisant quelques recherches, je pense que tu devrais t'en sortir ...
http://www.fobec.com/protec/trucs2/e...ub=V&id_log=68
http://www.fobec.com/protec/trucs2/e...b=V&id_log=381

[slimjoe]

...bref j'essaie juste de dire que si une solution a déjà été implémentée (et testée et débuggée) pour un problème donné, il est généralement préférable de l'utiliser ou de s'en servir comme base (sinon à quoi servirait la POO ?).

amen