A Happy Programmer

http://forum.lazarus.freepascal.org/index.php?topic=31306.0      procedure  DoSomeThing ( aself ,  Sender : TObject ) ;    begin      writeln ( 'Hello' ) ;    end ;      function  MakeMethod (  Data ,  Code :   Pointer   ) :  TMethod ;    begin     Result . Data   : =  Data ;     Result . Code   : =  Code ;    end ; xxxx.xevent = TNotifyEvent( MakeMethod(timer, @dosomething));

http://forum.lazarus.freepascal.org/index.php?topic=33937.0 program  consoleapp ;   {$mode objfpc}{$H+}   uses    {$IFDEF UNIX}{$IFDEF UseCThreads}   cthreads ,    {$ENDIF}{$ENDIF}   Classes ,  SysUtils ,  CustApp    { you can add units after this } ,   fpTimer ;   type      { TConsoleApp }     TConsoleApp  =  class ( TCustomApplication )    protected      procedure  DoRun ;   override ;    public     Timer1 :  TFPTimer ;      constructor  Create ( TheOwner :  TComponent ) ;   override ;      destructor  Destroy ;   override ;      procedure  Timer1Exec (  Sender  :  TObject  ) ;    end ;   { TConsoleApp }   procedure ...

http://blog.csdn.net/qq_31383345/article/details/53841192

https://github.com/simsir-lin/simui-wxapp