Discussion :

[dtcSearch]

Bonjour,

voilà mon problème, j'ai une application lambda (que j'ai crée) mais j'aimerai retirer des champs de saisie tout ce qui n'est pas [Annuler, Copier, Coller, Couper, Supprimer, Tout Sélectionner].

Par exemple, lorsque l'on active une option dans Windows:


Cela ajoute dans le clique droit une série de nouvelle fonctionnalité mais qui peuvent être préjudiciable dans le cas d'une application ne les traitants pas (par exemple pour ce qui est Unicode)

Est t'il possible, sans à avoir à recréer un menu contextuel où il faille redéfinir toute les actions que l'on veut par défaut et les affectés à tout les champs de chaque fenêtre, de ne plus avoir ces différents éléments?

Merci d'avance

[popo]

Tu parles de menu contextuel et tu affiches une fenêtre d'option.
Je ne vois pas trop le rapport.

Sinon dans un menu contextuel, chaque item du menu possède ou propriété "Visible" et une propriété "Enabled".

[Montor]

essaie de creer un nouveau menu PopupMenu1 ajouter avec les basic actions couper,coller ...
voici DFM

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
object ActionList2: TActionList
  Left = 336
  Top = 112
  object EditCut1: TEditCut
    Category = 'Edition'
    Caption = 'Cou&per'
    Hint = 'Couper|Couper la s'#233'lection et la mettre dans le Presse-papiers'
    ImageIndex = 0
    ShortCut = 16472
  end
  object EditCopy1: TEditCopy
    Category = 'Edition'
    Caption = '&Copier'
    Hint = 'Copier|Copier la s'#233'lection et la mettre dans le Presse-papiers'
    ImageIndex = 1
    ShortCut = 16451
  end
  object EditPaste1: TEditPaste
    Category = 'Edition'
    Caption = 'Co&ller'
    Hint = 'Coller|Ins'#233'rer le contenu du Presse-papiers'
    ImageIndex = 2
    ShortCut = 16470
  end
  object EditSelectAll1: TEditSelectAll
    Category = 'Edition'
    Caption = '&Tout s'#233'lectionner'
    Hint = 'Tout s'#233'lectionner|S'#233'lectionner l'#39'int'#233'gralit'#233' du document'
    ShortCut = 16449
  end
end
object PopupMenu1: TPopupMenu
  BiDiMode = bdRightToLeft
  ParentBiDiMode = False
  Left = 304
  Top = 112
  object Couper2: TMenuItem
    Action = EditCut1
  end
  object Copier1: TMenuItem
    Action = EditCopy1
  end
  object Coller2: TMenuItem
    Action = EditPaste1
  end
  object N2: TMenuItem
    Caption = '-'
  end
  object outslectionner1: TMenuItem
    Action = EditSelectAll1
  end
end

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.SetPopMenu(AParent:TWincontrol);
var
 i:integer;
 Obj: TObject;
begin
    with AParent do
    for i:= 0 to ControlCount-1 do
    begin
       Obj := Controls[i] ;
      if (Obj is TCustomEdit) and not Assigned(TEdit(Obj).PopupMenu) then
         TEdit(Obj).PopupMenu:=PopupMenu1
       else
          if Obj is TWincontrol then
             SetPopMenu(TWincontrol(Obj));
 
    end;
end;

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetPopMenu(Self);
end;

attention si tu modifie le parent if faut surcharger la methode Setparent

Code :

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

1
2
3
4
5
procedure TForm1.SetParent(AParent: TWinControl);
begin
   inherited SetParent(AParent);
   SetPopMenu(Self);
end;

[dtcSearch]

Voilà le + que Windows ajoute à son menu contextuel de base.



Merci Montor, j'aurais aimé évité de recrée un menu contextuel que je réaffecte à tout mes Control

Enfin, merci je vais voir

je laisse ouvert la question ouverte encore quelques temps avant de marqué résolut.