Copiar, Colar, Recortar...

Question

alguem pode me ajudar com os comados de Copiar, Colar, Recortar, Desfazer e Excluir?? pq na apostila q eu tenho naum fala sobre issovalew...

Marcelo Saviski · Answer

Depende com o que for, se for com o Memo:

Para Copiar: memo1.CopyToClipboard;
Para recortar: memo1.CutToClipboard;
Para Colar: memo1.PasteFromClipboard;
Para Desfazer: memo1.Undo;
Para Excluir:

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
begin
  s := memo1.Text;
  Delete(s, memo1.SelStart + 1, memo1.SelLength);
  memo1.Text := s;
end;

� isso?

Cebikyn · Answer

Eu acho que � mais f�cil usando uma ActionList, que serve para qualquer componente, n�o necessita codifica��o e j� coloca as figuras no ImageList....

F�rum Copiar, Colar, Recortar... #184590