Logo Hardware.com.br
ChaveirinhoDoMaguila
ChaveirinhoD... Veterano Registrado
617 Mensagens 124 Curtidas

(Código fonte)Editor de texto(Delphi/Lazarus)

#1 Por ChaveirinhoD... 16/12/2020 - 23:51
    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;

© 1999-2025 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal