Código Delphi [-]procedure TFXPAF.SBEscribirNotaClick(Sender: TObject); //------------------------------------------------------------------------------ //******************************************************************[ Nota ]**** //------------------------------------------------------------------------------ var VarSText:string; begin VarSText:=Memo2.Lines.Text; Memo2.Lines.Text:=InputMemo('Nota','Escriba su nota',VarSText); end;
procedure TFXPAF.SBEscribirNotaClick(Sender: TObject); //------------------------------------------------------------------------------ //******************************************************************[ Nota ]**** //------------------------------------------------------------------------------ var VarSText:string; begin VarSText:=Memo2.Lines.Text; Memo2.Lines.Text:=InputMemo('Nota','Escriba su nota',VarSText); end;