Блок вставки из буфера обмена

← →
lmz © (2005-09-07 16:03) [0]

Как мне запретить вставлять данные из буфера обмена по комбинациям клавишь Ctrl+C & Shift+Insert?

← →
Anatoly Podgoretsky © (2005-09-07 16:22) [1]

И зачем такое зверство?

← →
Дмитрий_05 (2005-09-07 16:32) [2]

Мне тоже интересно...)))

← →
Fay © (2005-09-07 16:37) [3]

lmz © (07.09.05 16:03)
"запретить вставлять" КУДА именно?

← →
Плохиш © (2005-09-07 16:42) [4]

http://www.swissdelphicenter.ch/de/showcode.php?id=1403

← →
Fay © (2005-09-07 16:49) [5]

Без новых компонентов

type TForm1 = class(TForm) Edit1 : TEdit; private FOldWindowProc : TWndMethod; procedure NewWindowProc(var Message : TMessage); public constructor Create(AOwner : TComponent); override; destructor Destroy; override; end; var Form1 : TForm1; implementation {$R *.dfm} constructor TForm1.Create(AOwner : TComponent); begin inherited; FOldWindowProc := Edit1.WindowProc; Edit1.WindowProc := NewWindowProc; end; destructor TForm1.Destroy; begin Edit1.WindowProc := FOldWindowProc; inherited; end; procedure TForm1.NewWindowProc(var Message: TMessage); begin if Message.Msg = WM_PASTE then Tag := 0 else FOldWindowProc(Message); end;

← →
AlexWlad © (2005-09-07 20:01) [6]

Anatoly Podgoretsky © (07.09.05 16:22) [1] правильно поставил вопрос - смысл запрета стандартных операций Windows? Не, ну я понимаю, в инталляторах запретить для поля сериал-нумера (типа хоть как-то подгадить любителям халявы - мол набирайте ручками), а так...

← →
Fay © (2005-09-07 20:17) [7]

2 AlexWlad © (07.09.05 20:01) [6]
> Не, ну я понимаю, в инталляторах запретить для поля
> сериал-нумера

Делать программу неудобной - глупость.

← →
lmz © (2005-09-07 21:37) [8]

> type
> TForm1 = class(TForm)
> Edit1 : TEdit;
> private
> FOldWindowProc : TWndMethod;
> procedure NewWindowProc(var Message : TMessage);
> public
> constructor Create(AOwner : TComponent); override;
> destructor Destroy; override;
> end;
>
> var
> Form1 : TForm1;
>
> implementation
>
> {$R *.dfm}
>
> constructor TForm1.Create(AOwner : TComponent);
> begin
> inherited;
> FOldWindowProc := Edit1.WindowProc;
> Edit1.WindowProc := NewWindowProc;
> end;
>
> destructor TForm1.Destroy;
> begin
> Edit1.WindowProc := FOldWindowProc;
> inherited;
> end;
>
> procedure TForm1.NewWindowProc(var Message: TMessage);
> begin
> if Message.Msg = WM_PASTE then
> Tag := 0
> else
> FOldWindowProc(Message);
> end;

не работает....

По крайней мере комбинация клавиш Ctrl+v работает... а мне надо её блокировать...

> (типа хоть как-то подгадить любителям халявы- мол набирайте
> ручками)

Подчеркнутое следует читать "пользователям".

Блок вставки из буфера обмена Найти похожие ветки