| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Блок вставки из буфера обмена [D7, WinXP]

lmz ©   (2005-09-07 16:03:00) 

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

---

Плохиш   (2005-09-08 10:40:00) [1]

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

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

---

lmz   (2005-09-08 10:27:00) [2]

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

---

Fay   (2005-09-08 01:39:00) [3]

2 lmz ©   (07.09.05 21:37) [8]
Не ври. Или признавайся, как достичь неработоспособности.

---

lmz   (2005-09-07 21:37:00) [4]

> 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-07 20:17:00) [5]

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

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

---

AlexWlad   (2005-09-07 20:01:00) [6]

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

---

Fay   (2005-09-07 16:49:00) [7]

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

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;

---

Плохиш   (2005-09-07 16:42:00) [8]

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

---

Fay   (2005-09-07 16:37:00) [9]

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

---

Дмитрий_05   (2005-09-07 16:32:00) [10]

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

---

Anatoly Podgoretsky   (2005-09-07 16:22:00) [11]

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

---

Наверх