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.