sorry.. adding the line after the begin.
copy paste of the code:
procedure tmainfo.dofacturarcontratos(const sender: TObject);
var
f : tdlgmesanyofo;
frar : tdlggeneraventasfo;
begin
showmessage('something'); /// <<<<<<<<<<<<<<<< adding this line makes it
working
f := tdlgmesanyofo.create(nil);
try
if f.show(true) = mr_ok then
begin
frar := tdlggeneraventasfo.create(nil);
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;
So it probably has nothing to do with main form, in the other forms there
was a askyesno dialog before running the dialog
2012/2/28 Julio Jiménez <juj...@gmail.com>
> 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
>
--
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
