Accueil > Programmes > Windows > Comment activer le Popup d’1 Richedit

Comment activer le Popup d’1 Richedit

dimanche 14 août 2011, par bluegyn_spip

Par défaut le menu popup d’un composant RichEdit de Delphi ne s’ouvre pas sur le clic droit de la souris

MANIP

Détourner le comportement du clic, en le positionnant sur l’évènement de souris OnMouseDown et en lui demandant de dérouler le Popup à l’endroit du clic.

OnMouseDown RichEdit1.PopupMenu.Popup

Créer un Menu Popup (Exemple Popup_RTF)
Placer POPUP_RTF dans la propriété POPUPMENU de RichEdit1
OnMouseDown (placer ce code)

procedure TForm1.RichEdit1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Clic : TPoint;

Begin


GetCursorPos(Clic);
if button = mbRight then Form1.RichEdit1.PopupMenu.Popup(Clic.x,Clic.y);

End;

Comment activer le Popup d’1 Richedit

MANIP

Programmes

Dans la même rubrique