Коросс реализация Copy, Сut, Paste в TMemo

[wendstor]

Всем привет!
Стоит задача в реализации методов по вставке, копирование, вырезании текста в TMemo.
В Delphi например: Memo.Perform(WM_COPY,0,0);
Есть ли аналог в Lazarus под кросс ? Если да то где ?

[Лекс Айрин]

Вообще не вопрос.

Код: Выделить всё

procedure TForm1.MenuItem19Click(Sender: TObject);
begin
  Form1.MainEditor.CutToClipboard;
end;

procedure TForm1.MenuItem20Click(Sender: TObject);
begin
  Form1.MainEditor.CopyToClipboard;
end;

procedure TForm1.MenuItem21Click(Sender: TObject);
begin
  Form1.MainEditor.PasteFromClipboard;
end;  

Вырезал из собственного рабочего кода. MainEditor здесь memoю В самом memo ничего реализовывать не надо -- уже сделано.