Fenêtre avec ou sans barre de titre ? Dilemme !

Question

Hello les Delphistes ! 

Je désire créer une toute petite fenêtre affichant des informations, avec la possibilité de la déplacer avec la souris (drag-drop), ET d'avoir un popup menu (clic droit).

1) Si je mets les infos dans la barre de titre et que je cache le reste en réduisant la hauteur de la fiche à 0, je ne peux pas utiliser de popup menu.

2) Si à l'inverse je mets les infos sur la fiche et que je cache la barre de titre (BorderStyle à bsNone), je ne peux plus déplacer la fenêtre. Si j'utilise les messages Windows pour le faire, je n'ai plus de popup menu.

Toute idée bienvenue, merci d'avance.
Jacques.

 8-)

cs_Nono40 · Answer

La deuxième solution est la meilleure : borderStyle=bsNone.
Ensuite il faut ajouter un évènement OnMouseDown sur la fiche pour gérer le déplacement :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If Button=mbLeft
  Then Begin
    ReleaseCapture;
    Form1.perform(WM_SYSCOMMAND, $F012, 0);
  End;
end;
( Merci à DelphiProg pour ce truc sensas... )

Il faut peut-être mettre Enabled=False sur les autres composants de la fiche, ou faire pointer les OnMouseDown de chaque composant sur l'évènement ci-dessus.

--- :sleepy)  Nono du Moulin  :sleepy) ---

jack554 · Answer

Nono40,

Merci mais comme je le disais dans mon premier message, si on fait ça, un popup menu sur la fiche ne marche pas ...  :sad) 

Jacques.

cs_Nono40 · Answer

Si le popup fonctionne ( sur le bouton droit ) je viens d'essayer... Es-tu sur de bien tester If button=mbleft Then dans le OnMouseDown ? De bien avoir défini le PopupMenu de Form1 et éventuellement des composants situés sur la fiche ?

--- :sleepy)  Nono du Moulin  :sleepy) ---

jack554 · Answer

Oui ça marche, sorry, j'étais pas bien réveillé !

Merci bcp !
Jacques.

Fenêtre avec ou sans barre de titre ? Dilemme !

4 réponses

Votre réponse

Discussions similaires