TTprxClassComentariosForm

Descripción

El objeto TTprxClassComentariosForm (Form para ingresar un memo.) permite ingresar un memo. En el código su uso está asociado a los auxiliares de tipo OPCIONES, pero no logro darme cuenta si fue una prueba en algún momento o si tiene un uso definido.

Identidad

• Ancestro: TTprxForm
• Carpeta: C:\DevelopPrx\classes
• Archivo: prxClassComentariosForm.pas

Declaración

type
  TTprxClassComentariosForm = class(TTprxForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    ButtonAPLICAR: TButton;
    ButtonCANCELAR: TButton;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure ButtonAPLICARClick(Sender: TObject);
    procedure ButtonCANCELARClick(Sender: TObject);
  private
  protected
  public
    function  Texto: String;
  end;

Implementación

function Texto: String

Retorna todas las líneas registradas en el memo como una sola.

procedure ButtonAPLICARClick(Sender: TObject)

Retorna ModalResult := mrOk;

procedure ButtonCANCELARClick(Sender: TObject)

Retorna ModalResult := mrCancel;

Uso

Solo TpAUX_DM_unit.LoadSection aunque no comprendo el código.