Désactiver copier/coller [Résolu]

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

yahia

3 réponses

Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
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
Messages postés
187
Date d'inscription
jeudi 16 octobre 2008
Statut
Membre
Dernière intervention
20 février 2010
3
Salut
Beckerich, cirec.
Merci pour ces solutions j'ai les bien enregistrer merci.



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

yahia