|
Cutting and Deleteing lines in a Memo
This example assumes you already have CutLineItem and
DeleteLineItem TMenuItem s defined
(perhaps inside an Edit menu).
procedure TForm1.CutLineItemClick(Sender: TObject);
begin
Memo1.SelStart := Memo1.Perform (EM_LineIndex, -1, 0);
Memo1.SelLength := length (Memo1.Lines[Memo1.Perform (EM_LineFromChar, -1, 0)]) + 2;
Memo1.CutToClipboard;
end;
procedure TForm1.DeleteLineItemClick(Sender: TObject);
begin
Memo1.Lines.Delete (Memo1.Perform (EM_LineFromChar, -1, 0));
end;
|