[Lazarus] how to send keyboard (or mouse) message with lazarus?

Creatxr creatxr at gmail.com
Mon Feb 1 19:13:06 CET 2010


I am running Lazarus 0.9.29 r23608 FPC 2.4.0 i386-win32-win32/win64
If I put a topenglcontrol on a form when I run the project I got an 
external sigsegv error in lclproc unit:

procedure TMethodList.RemoveAllMethodsOfObject(const AnObject: TObject);
var
   i: Integer;
begin
   if Self=nil then exit;
   i:=FCount-1;
   while i>=0 do begin
     if TObject(FItems[i].Data)=AnObject then Delete(i); <--- here
     dec(i);
   end;
end;

Here the messages given by lazarus:

C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(127,13) 
Hint: Type "TGLenum" redefinition
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(267,42) 
Hint: Local variable "Params" does not seem to be initialized
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(287,15) 
Hint: Local variable "pfd" does not seem to be initialized
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(30,21) 
Hint: Parameter "WSPrivate" not used
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(30,49) 
Hint: Parameter "SharedControl" not used
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(32,27) 
Hint: Parameter "AParams" not used
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(416,27) 
Hint: Conversion between ordinals and pointers is not portable
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(416,61) 
Hint: Conversion between ordinals and pointers is not portable
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(424,43) 
Hint: Conversion between ordinals and pointers is not portable
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(423,11) 
Hint: Conversion between ordinals and pointers is not portable
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(425,40) 
Hint: Conversion between ordinals and pointers is not portable
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(434,43) 
Hint: Conversion between ordinals and pointers is not portable
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(433,11) 
Hint: Conversion between ordinals and pointers is not portable
C:\Programmi\Lazarus_svn\components\opengl\glwin32wglcontext.pas(24,37) 
Hint: Unit "WSControls" not used in GLWin32WGLContext
"Compiling package LazOpenGLContext 0.0.1" completed
La build del progetto "project1" รจ stata completata con successo. :)


Andrea





More information about the Lazarus mailing list