Les Boutons dans la barre "Caption" des fenetres

Version imprimable

09/05/2006, 12h11
YURI2006

Les Boutons dans la barre "Caption" des fenetres

Salut,
:D
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
09/05/2006, 12h17
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...) ;)

salut

Code:

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

09/05/2006, 19h23
sjrd

Citation:

Envoyé par 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...) ;)

Il s'agit de TJvCaptioButton :)
10/05/2006, 02h41
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
10/05/2006, 10h23
evarisnea

Citation:

Envoyé par 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

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... :cry:

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

Code:

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;

Citation:
Envoyé par denokan
pour le déplacement de la form tu peux tester ceci :
Code:

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 ?). ;)

11/05/2006, 12h26
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
11/05/2006, 18h39
slimjoe

Citation:

Envoyé par evarisnea

...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