Solved

Preventing Cut and Paste in edit box

Posted on 1998-08-10
9
189 Views
Last Modified: 2010-04-04
Hi all, I have a program that tests a users input after a lesson and I need to be able to prevent the users from cutting and pasting from the lesson portion to the edit box in the testing.How do I do this without eliminating the ability to use the shift and ctrl keys?(the ctrl isnt important but they may have to type in uppercase characters at times) Any ideas? Any help is greatly appreciated....
0
Comment
Question by:GabeinOZ
  • 5
  • 2
  • 2
9 Comments
 
LVL 8

Expert Comment

by:ZifNab
ID: 1361860
GabeinOZ,

 make a descendant of TEdit and trap the messages for WM_PASTE, WM_CUT, WM_COPY. When you've trapped them, just do nothing! Don't call inherited.

Zif.
0
 
LVL 3

Expert Comment

by:vladika
ID: 1361861
I wrote small component TCutPasteMonitor.
It can handle any TWinControl, not only TEdit, but any its descendant
TMemo, TMaskEdit ets.
Also you can modify it for your purpose.
Enjoy :)

unit CutPasteMnt;

interface

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

type
  TCutPasteMonitor = class(TComponent)
  private
    FCanCut, FCanCopy, FCanPaste: Boolean;
    FControl: TWinControl;
    FWndProcAdd : Pointer;
    ObjectInstance : Pointer;
    procedure SetControl(Value : TWinControl);
  protected
    procedure WndProc(var Message: TMessage);
    function Execute(Message: TMessage) : Boolean; virtual;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  published
    property CanCut: Boolean read FCanCut write FCanCut;
    property CanCopy: Boolean read FCanCopy write FCanCopy;
    property CanPaste: Boolean read FCanPaste write FCanPaste;
    property Control: TWinControl read FControl write SetControl;
  end;

procedure Register;

implementation

{ TCutPasteMonitor }

constructor TCutPasteMonitor.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  ObjectInstance := MakeObjectInstance(WndProc);
end;

destructor TCutPasteMonitor.Destroy;
begin
  if (ObjectInstance <> nil) then
    FreeObjectInstance(ObjectInstance);
  inherited Destroy;
end;

procedure TCutPasteMonitor.WndProc(var Message: TMessage);
begin
  if not Execute(Message) then
  with Message do
    Result := CallWindowProc(FWndProcAdd, FControl.Handle, Msg, WParam, LParam);
end;

procedure TCutPasteMonitor.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if(AComponent = FControl) And (Operation = opRemove) then
    FControl := nil;
end;

procedure TCutPasteMonitor.SetControl(Value : TWinControl);
begin
  if(FControl = Value) then Exit;
  if(FControl <> nil) and (FWndProcAdd <> nil) then
  begin
    SetWindowLong(FControl.Handle, GWL_WNDPROC, LongInt(FWndProcAdd));
    FWndProcAdd := nil;
  end;
  FControl := Value;
  if(FControl <> nil) and not (csDesigning in FControl.ComponentState) then
  begin
    FWndProcAdd := Pointer(GetWindowLong(FControl.Handle, GWL_WNDPROC));
    SetWindowLong(FControl.Handle, GWL_WNDPROC, LongInt(ObjectInstance));
  end;
end;

function TCutPasteMonitor.Execute(Message: TMessage) : Boolean;
begin
  Result := True;
  if not FCanCut and (Message.Msg = WM_CUT) then Exit;
  if not FCanCopy and (Message.Msg = WM_COPY) then Exit;
  if not FCanPaste and (Message.Msg = WM_PASTE) then Exit;
  Result := False;
end;

procedure Register;
begin
  RegisterComponents('ExpertsExchange', [TCutPasteMonitor]);
end;

end.
0
 
LVL 3

Expert Comment

by:vladika
ID: 1361862
It's another approach to a problem then ZifNaf proposes.
Instead making descendant of each control
we are subclassing existing controls (and their existing and future descendant).

0
Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

 
LVL 3

Expert Comment

by:vladika
ID: 1361863
SORRY!!! ZifNab instead of ZifNaf

0
 
LVL 8

Expert Comment

by:ZifNab
ID: 1361864
vladika, no problem with ZifNaf... BanZif :-)
0
 
LVL 3

Expert Comment

by:vladika
ID: 1361865
I forgot explain how to use my component.
Set TEdit, TMemo or other TWinControl on the form.
Set TCutPasteMonitor on the form.
Set CutPasteMonitor.Control property.
Set CanCut, CanCopy and CanPaste properties.

0
 

Author Comment

by:GabeinOZ
ID: 1361866
thanks for the help zif but I tried Banzif's ( :P) component and it works perfectly....thanks for your answer though...
0
 
LVL 3

Accepted Solution

by:
vladika earned 50 total points
ID: 1361867
Hi, GabeinOZ

According to your letter
> this is GabeinOZ from e.e.,   you added a comment to my question yesterday and
> I used your answer rather than the one provided by Zifnab
> so answer the q again so I can give you the points...
> Thanks again for your answer....works brilliantly!!! :)

I post my "official" answer (see below/above)

0
 

Author Comment

by:GabeinOZ
ID: 1361868
thanks again man...your component is sweet :)
catch ya next time...

Gabe
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
creating manifest for my dll that called from activex 6 113
How to fill array with TArray.Create? 14 87
tidtcpserver connection lost handle 2 83
Create a path if not exists 7 77
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question