Curious.. adding a showmessage, ask.... dialog and the code runs fine
procedure tmainfo.dofacturarcontratos(const sender: TObject);
var
showmessage('something'); <<<<<<<<-------------------------- adding this
line makes it working fine.. with askyesno dialog too
f : tdlgmesanyofo;
frar : tdlggeneraventasfo;
begin
f := tdlgmesanyofo.create(self);
try
if f.show(true) = mr_ok then
begin
frar := tdlggeneraventasfo.create(self);
try
frar.fechaventa := f.fechafinal;
frar.accion := ventastodasty;
frar.show(true);
finally
frar.free;
end;
end
else
showmessage('Proceso cancelado');
finally
f.free;
end;
end;
2012/2/28 Martin Schreiber <mse00...@gmail.com>
> Am 28.02.2012 12:15, schrieb Julio Jiménez:
> > Hi Martin.
> >
> > I have a running application under linux and no problems, I compiled it
> > for windows (windows xp) and I get an exception trying to show a dialog
> > in modal.
> >
> > Curious this only happens when I run the dialog from the main form. If I
> > run the dialog from another form all is fine. I had to install fpc and
> > mseide in windows to debug it.
> >
> Which exception, which MSE version?
>
> Martin
>
>
> ------------------------------------------------------------------------------
> Keep Your Developer Skills Current with LearnDevNow!
> The most comprehensive online learning library for Microsoft developers
> is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
> Metro Style Apps, more. Free future releases when you subscribe now!
> http://p.sf.net/sfu/learndevnow-d2d
> _______________________________________________
> mseide-msegui-talk mailing list
> mseide-msegui-talk@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
>
--
Julio Jiménez Borreguero
------------------------------------------------------------------------------
Keep Your Developer Skills Current with LearnDevNow!
The most comprehensive online learning library for Microsoft developers
is just $99.99! Visual Studio, SharePoint, SQL - plus HTML5, CSS3, MVC3,
Metro Style Apps, more. Free future releases when you subscribe now!
http://p.sf.net/sfu/learndevnow-d2d
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
