Hello,
if I use "OnClick" event, example
procedure TFRM_.NAV_Click(Sender: TObject; Button: TDBNavButtonType);
begin
NAV_ClickXx(Button);// or PostMessage(Self.Handle, LM_USER, 1, - 2);
end;
I get this error, and I cannot handle where is it.
Project UGS_Dental raised exception class 'External: SIGFPE'.
In file 'lclproc.pas' at line 860:
if (length(Msg) div (length(Msg) div 10000))=0 then ;
Click to run and application continue to work normal, after this error:
Division by zero.
Press OK to ignore and risk data corruption.
Press Cancel to kill the program.
But this code is work without error
procedure TFRM_.NAV_Click(Sender: TObject; Button: TDBNavButtonType);
begin Self.Tag := 1; end;
this code or etc simple code work without problem.
regards
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
