Désactiver copier/coller [Résolu]

Messages postés
187
Date d'inscription
jeudi 16 octobre 2008
Statut
Membre
Dernière intervention
20 février 2010
- - Dernière réponse : youhibadelphi
Messages postés
187
Date d'inscription
jeudi 16 octobre 2008
Statut
Membre
Dernière intervention
20 février 2010
- 16 nov. 2009 à 12:39
Salut
mes amis comment faire pour désactiver copier /coller dans un Tedit.
Et merci

yahia
Afficher la suite 

3 réponses

Messages postés
308
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
0
Merci
bonjour,

une solution en utilisant TPopupMenu et TActionList :
déposer un tactionlist et créer 2 actions copier et coller avec le raccourci clavier correspondant.
assigner une méthode onexecute vide pour ces 2 actions.
déposer un tpopupmenu, ajouter 2 items correspondant aux 2 actions et assigner ce tpopupmenu à la propriété popupmenu du tedit.

c'est une idée, pas une absolue vérité...

[delphi]
unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ActnList, StdCtrls;

type
TForm6 = class(TForm)
Edit1: TEdit;
ActionList1: TActionList;
Memo1: TMemo;
act_copier: TAction;
act_coller: TAction;
PopupMenu1: TPopupMenu;
foocopier1: TMenuItem;
foocoller1: TMenuItem;
Edit2: TEdit;
procedure act_copierExecute(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.act_copierExecute(Sender: TObject);
begin
//
end;

end.
/delphi

[dfm]
object Form6: TForm6
Left = 0
Top = 0
Caption = 'Form6'
ClientHeight = 292
ClientWidth = 554
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Edit1: TEdit
Left = 88
Top = 48
Width = 121
Height = 21
PopupMenu = PopupMenu1
TabOrder = 0
Text = 'Edit1'
end
object Memo1: TMemo
Left = 96
Top = 104
Width = 185
Height = 89
Lines.Strings = (
'Memo1')
TabOrder = 1
end
object ActionList1: TActionList
Left = 272
Top = 64
object act_copier: TAction
Caption = 'foo_copier'
ShortCut = 16451
OnExecute = act_copierExecute
end
object act_coller: TAction
Caption = 'foo_coller'
ShortCut = 16470
OnExecute = act_copierExecute
end
end
object PopupMenu1: TPopupMenu
Left = 328
Top = 64
object foocopier1: TMenuItem
Action = act_copier
end
object foocoller1: TMenuItem
Action = act_coller
end
end
end
/dfm
Commenter la réponse de beckerich
Messages postés
187
Date d'inscription
jeudi 16 octobre 2008
Statut
Membre
Dernière intervention
20 février 2010
3
0
Merci
Salut
Beckerich, cirec.
Merci pour ces solutions j'ai les bien enregistrer merci.



yahia
Commenter la réponse de youhibadelphi
Messages postés
187
Date d'inscription
jeudi 16 octobre 2008
Statut
Membre
Dernière intervention
20 février 2010
3
0
Merci
Salut beckettien
Merci pour le code et l'idée.

yahia
Commenter la réponse de youhibadelphi