[Lazarus] TDBNavigator.OnClick has problem

[FreeMan]

Yes, I tried debugger, debugger stoped onclick, its work step by step 
after end of onclick event, but loose control message process. mean f8 
step jump to qtwidget, idle, and some in code.

    Project project1 raised exception class 'External: SIGFPE'.

    In file 'lclproc.pas' at line 860:

    if (length(Msg) div (length(Msg) div 10000))=0 then ;

first this error popup, click "okay" and then jump to that line in 
editor and wait, then click to run and
this error popup

    Debugger exception class 'RunError(200).
    in file 'lclproc.pas' at line 860

Break, continue button. Click to continue button and

       Debugger Exception Notification
    Project project1 raised exception class 'EDivByZero' with message:
    Division by zero
    in file 'lclprocçpas' at line 860

Break, continue button. Click to continue button and last error :)

    Division by zero.

    Press OK to ignore and risk data corruption.

    Press Cancel to kill the program.

program work normal. Test code on down. Message triggered open different 
form, application work normal, if click insert or any button this error 
list same.

procedure TFRM_.NAV_Click(Sender: TObject; Button: TDBNavButtonType);
begin
   NAV_Clickx(Button);
end;

procedure TFRM_.NAV_Clickx(Button: TDBNavButtonType);
begin
  case Button of
    nbInsert : PostMessage(Self.Handle, LM_USER, 1, - 2);
    nbDelete : ;
    nbEdit   : ;
  end;
end;

05-04-2014 05:57 tarihinde, Mattias Gaertner yazdı:
> In file 'lclproc.pas' at line 860:
>
> if (length(Msg) div (length(Msg) div 10000))=0 then ;
> Have you tried to use the debugger?
>
> Mattias
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20140405/3fa5acd2/attachment-0003.html>