Tengo una pantalla con 2 botones y quiero capturar el valor que un usuario ingrese en el formulario tal como lo pudiera hacer si tuviese un Edit.Text, ¿cómo lo hago?
Por ejemplo aquí si funciona:
procedure Button1Click(Sender: TObject);
begin
if (Edit1.Text <> '') then
begin
VCASO:=Edit1.Text;
Self.Close;
end
else
showmessage ('No puede dejar el campo vacío.');
end;
Pero eso solo toma una línea, yo quiero un TMemo porque me captura varias líneas, agradezco su ayuda.
Actualización:
Esto es lo que tengo:
{$FORM TCasos, Ficha de Casos.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
procedure Button1Click(Sender: TObject);
begin
if (Memo1.Text <> '') then
begin
VCASO:=Memo1.Text;
Self.Close;
end
else
showmessage ('No puede dejar el campo vacío.');
end;
procedure Button2Click(Sender: TObject);
begin
Self.Close;
end;
begin
end;