Discussion :

[youhibadelphi]

Salut
mes amis comment faire pour désactiver copier /coller dans un Tedit.
Et merci

[seb_homme_parfait]

Salut

Je ne sais pas si c'est possible, en tout cas j'en ai pas entendu parler.
Sinon tu peux peut être utiliser l'événement OnChange du Tedit.
Par exemple si t'as une variable qui mémorise la valeur actuelle du Tedit :

Tu initialises cette variable avec la valeur du Tedit.
Puis dans l'événement OnChange, tu compares la longueur de la variable avec la nouvelle valeur du Tedit.
Si il y a une différence de nombre de caractère supérieure à 1, alors il y a eu un "copier coller".
Et tu peux remplacer la valeur du Tedit par ta variable pour revenir a l'état précédent comme si il n'y avait pas eu de "copier coller".
Si la différence n'était que de 1, là tu écrases la valeur de la variable par la nouvelle valeur du Tedit.

En espérant ne pas t'avoir embrouillé xD

Ça fait peut être un peu bidouille par rapport a une solution magique qui interdirait le copier coller, mais si ça peut t'aider quand même

[Dr.Who]

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
unit unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, stdctrls;
 
type
  { TEdit overclass ---------------------------- }
 
  TEditOption  = (eoAllowEdit, eoAllowContextMenu, eoAllowCopy, eoAllowPaste, eoAllowCut, eoAllowUndo);
{
eoAllowEdit : permet d'activer ou non la saisie au clavier
eoAllowContextMenu : permet d'activer ou non le menu contextuel par defaut
eoAllowCopy : permet d'activer ou non le raccourcis CTRL+C (copier)
eoAllowPaste: permet d'activer ou non le raccourcis CTRL+V (coller)
eoAllowCut : permet d'activer ou non le raccourcis CTRL+X (couper)
eoAllowUndo: permet d'activer ou non le raccourcis CTRL+Z (annuler)
}
  TEditOptions = set of TEditOption;
 
  TEdit = Class(StdCtrls.TEdit)
  private
    FEditOptions : TEditOptions;
    procedure WMChar(var Message: TWMChar); message WM_CHAR;
    procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU;
    procedure WMPaste(var Message); message WM_PASTE;
    procedure WMCopy(var Message); message WM_COPY;
    procedure WMCut(var Message); message WM_CUT;
    procedure WMUndo(var Message); message WM_UNDO;
  public
    constructor Create(AOwner : TComponent); override;
    Property EditOptions : TEditOptions
             Read FEditOptions
             Write FEditOptions
             default [eoAllowEdit, eoAllowContextMenu, eoAllowCopy, eoAllowPaste, eoAllowCut, eoAllowUndo];
  end;
 
  { --------------------------------- }
 
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TEdit overclass }
 
constructor TEdit.Create(AOwner : TComponent);
begin
  inherited create(AOwner);
  FEditOptions := [eoAllowEdit, eoAllowContextMenu, eoAllowCopy, eoAllowPaste, eoAllowCut, eoAllowUndo];
end;
 
procedure TEdit.WMChar(var Message: TWMChar);
begin
  if eoAllowEdit in FEditOptions Then
     Inherited;
end;
 
procedure TEdit.WMContextMenu(var Message: TWMContextMenu);
begin
  if eoAllowContextMenu in FEditOptions Then
     Inherited;
end;
 
procedure TEdit.WMCopy(var Message);
begin
  if eoAllowCopy in FEditOptions Then
     Inherited;
end;
 
procedure TEdit.WMPaste(var Message);
begin
  if eoAllowPaste in FEditOptions Then
     Inherited;
end;
 
procedure TEdit.WMCut(var Message);
begin
  if eoAllowCut in FEditOptions Then
     Inherited;
end;
 
procedure TEdit.WMUndo(var Message);
begin
  if eoAllowUndo in FEditOptions Then
     Inherited;
end;
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // toute les options sont désactivées, impossible donc de modifier le contenus de Edit2
  Edit2.EditOptions := [];
end;

[cincap]

Bonjour à toutes et à tous,

@ youhibadelphi, faut voir ce que tu fais avec ton Tedit, si tu as déjà ton texte écrit par défaut ou si tu l'ajoutes après quoi qu'il en soit, tu peux envisager de placer ton Tedit sur un Tpanel avec les mêmes dimensions et mettre la propriété enabled à false du Tpanel (propriété enabled du Tedit reste à true) comme cela le texte du Tedit apparaîtra normalement mais impossible de le sélectionner donc de le copier.

@+,

Cincap

[youhibadelphi]

Salut seb_homme_parfait
Merci pour ta participation mais je crois de ta solution nécessite un peu plus de condition, je crois q'il y a des codes a ajouter pour désactivé copier/coller dans les Tedit.
Merci.

[youhibadelphi]

Salut Dr.Who
Merci j'ai bien copié le code.
Merci beaucoup.