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