[Lazarus] TForm.ModalResult := mrOk problem

zeljko zeljko at holobit.net
Mon Nov 25 16:57:55 CET 2013


On 11/25/2013 04:33 PM, FreeMan wrote:
> on /lazarus/lcl/forms.pp
> line 662:
> property ModalResult : TModalResult read FModalResult write FModalResult;
> TCustomForm class property. its just variable
>
> on virtualbox system:
> I add TButton on form and TButton.ModalResult set to MrOk. and click to
> Button then similar work TForm.ModalResult := MrOk.
> I don't wanna use tbutton, How to run My code "F.ModalResult := MrOk."

It should work. Where do you exactly set ModalResult := mrOK ?

z.

>
>
> 25-11-2013 16:45 tarihinde, FreeMan yazd─▒:
>> Hello,
>> I have a strange problem.
>> I have last svn fpc and lazarus on kubuntu 13.10 x64
>>
>> FRM_Log_In := TFRM_Log_In.Create(AOwner);
>> Result := FRM_Log_In.ShowModal;
>>
>> "FRM_Log_In.ModalResult := mrOk;"  this code work on my system, work
>> mean, form close and move to after "FRM_Log_In.Showmodal;"
>> "FRM_Log_In.ModalResult := mrCancel;"  working too.
>> I have a virtualbox and installed kubuntu 13.10 x64 there too. not
>> install any fpc or lazarus.
>> when copy my application to virtualbox, form showing and all component
>> (label, edit, etc) work fine. "FRM_Log_In.ModalResult := mrCancel;"
>> working too but
>> "FRM_Log_In.ModalResult := mrOk;" never and ever working :)) no any
>> exception, its work like this code not working. I mean for the test, I
>> add showmessage('hello'); after this line, message not showing. But
>> application is still working normal.
>> And this is just in virtualbox system, on my system everytking is okey.
>> Has anyone have idea ??
>> Thank you
>>
>>
>>
>> --
>> _______________________________________________
>> Lazarus mailing list
>> Lazarus at lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>>
>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus





More information about the Lazarus mailing list