Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-02-2019
DarthGomis DarthGomis is offline
Registrado
 
Registrado: feb 2019
Posts: 5
Poder: 0
DarthGomis Va por buen camino
Error al salir de un modal

Buenas

En resumen el problema que me ha surgido es que al salir de un modal, me salta un error y no se por qué.

Vamos al meollo del asunto, estoy realizando una app y en un momento dado necesito crear un modal para editar el contenido de un memo.

Captura.PNG

El problema es que al darle a Ok me salta este error.

Captura1.PNG

He estado buscando el por qué y no encuentro ninguna solución, el código que uso para salir del modal es este

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

Y el boton que activa el modal y procesa la información es este otro

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  nameData:string;
  numberData:integer;
  dateData:TDateTime;
begin
  with TForm2.Create(self) do
    try
      lineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.Selstart, 0);
      ShowModal;

      if Form2.ShowModal = mrOk then
      begin
        try
          nameData := Form2.Edit1.Text;
          numberData := StrToInt(Form2.Edit2.Text);
          dateData := StrToDate(Form2.Edit3.Text);
          Memo1.Lines[lineNumber] := ('N:'+nameData+
                ';D:'+IntToStr(numberData)+
                ';F:'+DateToStr(dateData));
        except
        ShowMessage('Wrong Data: Please insert correct values');
        end;
      end;
    finally
      Free;
    end;
end;

Igual es una tonteria pero estoy aprendiendo en Delphi y hay cosas que no entiendo muy bien.

Gracias de antemano. Si se necesita más información avisad y os la proporciono.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error al salir del preview. vpepen Impresión 11 15-03-2007 14:10:24
Error Formulario forma modal serhasae Varios 5 03-04-2006 23:52:00
Error al Salir de la Aplicación camelumi Varios 3 24-09-2004 16:12:25
Error al salir de una aplicacion el_enigma1 Conexión con bases de datos 0 05-09-2004 00:49:10
Error al salir cisterpe Varios 14 28-04-2004 19:20:04


La franja horaria es GMT +2. Ahora son las 16:06:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi