[Lazarus] TForm.ModalResult := mrOk problem

FreeMan freeman35 at delphiturkiye.com
Mon Nov 25 16:33:12 CET 2013


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."


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
>





More information about the Lazarus mailing list