CutToClipboard (Delphi)

Description

This example uses an edit box, a rich edit control, and a button on a form. When the user clicks the button, text is cut from the rich edit control and pasted into the edit box. Note that only the text is pasted. If the rich edit control includes any formatting information, that is not pasted into the edit control. If the destination was a rich edit control, the formatting information would be copied as well.

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelectAll;  { Ensure that all the text is cut, not just the current selection. }
  RichEdit1.CutToClipboard;
  Edit1.Clear;
  Edit1.PasteFromClipboard;
  RichEdit1.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  Path = 'OverView.RTF';
begin
  RichEdit1.PlainText := False;
  RichEdit1.Lines.LoadFromFile(Path);
  RichEdit1.ScrollBars := ssVertical;
end;

Uses

• Vcl.StdCtrls.TCustomEdit.SelectAll ( fr | de | ja )
• Vcl.StdCtrls.TCustomEdit.CutToClipboard ( fr | de | ja )

See Also

• Cutting, Copying, and Pasting Text