Novo
Memo1.Clear;
Memo1.SetFocus;
Abrir
if openDialog1.Execute then
begin
memo1.Lines.LoadFromFile(OpenDialog1.Filename);
memo1.setfocus;
end;
Botão Salvar
if SaveDialog1.execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;
Copiar
Memo1.CopytoClipBoard;
Colar
Memo1.PasteFromClipboard; ;
Recortar
Memo1.CutToClipBoard
Fonte
FontDialog1.Font:=Memo1.Font;
if FontDialog1.Execute then]
begin
Memo1.Font:= FontDialog1.Font;
Memo1.SetFocus;
end;

ChaveirinhoD...
Veterano
Registrado
617 Mensagens
124 Curtidas
(Código fonte)Editor de texto(Delphi/Lazarus)
#1 Por ChaveirinhoD...
16/12/2020 - 23:51