Forcer affichage menu systeme

Question

Salut  ;) 
g une application sans barre de titre
mais je voudrai kan même afficher le menu systeme lors du klik droit :)
comment faire ???

merci par avance  :) 
@+
Fabs 8-)

kakochime · Answer

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
p:TPoint;
BEGIN
if Button=mbright then begin
getcursorpos(p);
TrackPopupMenuEx(GetSystemMenu(Handle,false),TPM_RIGHTBUTTON,p.x,p.y,handle,nil);
end;
END;

cs_Delphiprog · Answer

Merci kakochime,

C'est super, mais quand on clique sur les choix du menu popup, aucune action n'est déclenchée...

Comment faire ?
May Delphi be with you

kakochime · Answer

en ajoutant le parametre TPM_RETURNCMD, on capte l'evenement !

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
p:TPoint;
Action:integer;
BEGIN
if Button=mbright then begin
getcursorpos(p);
Action:=ord(TrackPopupMenuEx(GetSystemMenu(Handle,false),TPM_RIGHTBUTTON+TPM_RETURNCMD,p.x,p.y,handle,nil));
SendMessage(handle,WM_SYSCOMMAND,Action,0);
end;
END;

cs_Delphiprog · Answer

Ca marche super !

J'étais en train de chercher sur le net une réponse et j'ai pû constater que pas mal de monde patinait sur le sujet.
Les aides en ligne fournies par Borland ne connaissent pas cette fonction TrackPopupMenuEx.

Ca mérite de figurer dans les codes sources.
Tu nous postes une petite démo ?
D'avance, merci.
May Delphi be with you

cs_Nono40 · Answer

Félicitation à Kakochime pour la méthode...

Mais je pense que la fiche de fabiin avait BorderStyle à bsNone et malheureusement, dans ce cas ça ne fonctionne pas...

Sinon on pouvait aussi afficher le menu en simulant la touche F10 puis Flèche basse.

--- :sleepy)  Nono du Moulin  :sleepy) ---

fabiin · Answer

bien vu nono40  :) , j'allai le dire
donc comment faire ? lol
@+
Fabs 8-)

fabiin · Answer

Salut kakomachine
ce code ne fonctionne pas kan BorderStyle := bsnone, et c mon cas  :) 
As-tu une solution ?
@+
Fabs 8-)

cs_Nono40 · Answer

Bon, il semble qu'un fenêtre avec bsNone n'a pas de menu système. Bon, mais si le projet à une autre fenêtre ? On peut peut-être copier le menu d'une fenêtre sur l'autre :

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
p:TPoint;
Action:integer;
BEGIN
if Button= mbright then begin
getcursorpos(p);
Action:=ord(TrackPopupMenuEx(GetSystemMenu( Form2. Handle,false),TPM_RIGHTBUTTON+TPM_RETURNCMD,p.x,p.y,handle,nil));
SendMessage(handle,WM_SYSCOMMAND,Action,0);
end;
end;

Il suffit donc d'ajouter un fiche ( même si elle ne sert à rien ) pour en extraire le menu et l'afficher sir la fiche principale. Et là ça fonctionne aussi avec bsNone.

Chapeau à Kakochime pour la méthode de base...

--- :sleepy)  Nono du Moulin  :sleepy) ---

Forcer affichage menu systeme

8 réponses

Votre réponse

Discussions similaires