Delphi Cut, Copy and Paste

Submitted by:Jhon Smith

Date added:25 January, 2012

Category:Delphi

Delphi Code example how to Cut, Copy and Paste

Tags: copy and paste

Code Snippet:

procedure TForm1.Cut1Click(Sender: TObject);
begin
SendMessage (ActiveControl.Handle, WM_Cut, 0, 0);
end;

procedure TForm1.Copy1Click(Sender: TObject);
begin
SendMessage (ActiveControl.Handle, WM_Copy, 0, 0);
end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
SendMessage (ActiveControl.Handle, WM_Paste, 0, 0);
end;
 
 

Comments