Текущий архив: 2005.10.02;
Скачать: CL | DM;
Вниз
Блок вставки из буфера обмена Найти похожие ветки
← →
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;
не работает....
← →
Fay © (2005-09-08 01:39) [9]2 lmz © (07.09.05 21:37) [8]
Не ври. Или признавайся, как достичь неработоспособности.
← →
lmz © (2005-09-08 10:27) [10]По крайней мере комбинация клавиш Ctrl+v работает... а мне надо её блокировать...
← →
Плохиш © (2005-09-08 10:40) [11]
> (типа хоть как-то подгадить любителям халявы- мол набирайте
> ручками)
Подчеркнутое следует читать "пользователям".
Страницы: 1 вся ветка
Текущий архив: 2005.10.02;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.051 c
