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
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
