Edit и мышь

[plahmonah]

Ребятки подскажите как сделать в Edit'е так чтобы при выделение мышью и нажатию правой кнопки мыши нельзя было "вырезать, вставить" данные.

[hack]

Поставь свойство ReadOnly в true

[plahmonah]

Цитата: Сообщение от hack Поставь свойство ReadOnly в true

Это просто, мне нужно Edit был доступен и не доступно копирование, вставка и редактирование.
Есть код но он тока на создание элемента:
Код

unit Unit1;

interface

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


type
TCancelCopyEdit = class(TEdit)
private
procedure DefaultHandler(var Message); override;
end;

TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
CPEdit: TCancelCopyEdit;

implementation

{$R *.dfm}
procedure TCancelCopyEdit.DefaultHandler(var Message);
begin
case TMessage(Message).Msg of
WM_PASTE and
WM_COPY and
WM_CUT:

begin
{Делай тут шо хош}
ShowMessage('Отвали. Копировать нельзя!');
Exit;
end;
end;
inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CPEdit := TCancelCopyEdit.Create(Self);
CPEdit.Parent := Self;
CPEdit.Top := 10;
CPEdit.Left := 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
CPEdit.Free;
end;

end.

А как сделать это без создание виртуального Edita?
Есть правда тема сделать это в Edit'e на OnMouse..., тогда мышь не будет выводить допл.меню но можно с клавы копировать Ctrl+C и т.д..

[wellwisher]

Цитата: Сообщение от bjjzp Это просто, мне нужно Edit был доступен и не доступно копирование, вставка и редактирование. Есть код но он тока на создание элемента:

Перенеси из TForm1.FormCreate в TForm1.FormActivate
и увидишь что не только на создание ....

Цитата: без создание виртуального Edita?

Причем здесь виртуальный ? Изменил обработчик событий - красиво, но не работает так как требуется ...

[gyran]

Если тебе это срочно, то я бы сделал так: прописал два события (извини за стиль)

procedure TForm1.Edit1ContextPopup(
Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
Handled := true;
end;

procedure TForm1.Edit1KeyUp(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if
(ssCtrl in Shift) and
(UpperCase(String(Char(Key)))[1] in ['C', 'V', 'X', 'Z'])
then
Exit;
end;

[agi77]

Можно попробывать переопределить Popup-меню, и перехватывать нажатия в компоненте.

[plahmonah]

интересно, а конкретные пункты контестного меню можно запртетить?

[plahmonah]

Вот код для копирования, а вот как его к мыши прикрутить не знаю
Для Ctrl+C

uses Clipbrd;
...
if ClB=nil then ClB:=TClipBoard.Create;
Clb.AsText:=text;

[wellwisher]

Попробуй так ( проверено, работает) :
Код исправленный

unit Unit1;
interface

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

type
TCancelCopyEdit = class(TEdit)
private
procedure DefaultHandler(var Message); override;
end;

TForm1 = class(TForm)
Edit1: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
CPEdit: TCancelCopyEdit;

implementation

{$R *.dfm}
procedure TCancelCopyEdit.DefaultHandler(var Message);
Var
a : Boolean;
begin
a:=False;
case TMessage(Message).Msg of
WM_PASTE,WM_COPY,WM_CUT : a:=True;
end;
If a then
begin
TMessage(Message).Msg := EM_Undo;
inherited DefaultHandler(Message);
end;
inherited;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
CPEdit.Free;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
CPEdit := TCancelCopyEdit.Create(Self);
CPEdit.Parent := Self;
CPEdit.Top := 10;
CPEdit.Left := 10;
CPEdit.Text:='Привет';
end;

end.

[formeram]

Можно вообще заблокировать выделение текста. Делал так для RechEdit.