Hola a todos.
Yo queria hacer algo similar, pero es muy dificil implementarlo. Necesito ayuda, yo quiero saber si hay algun libro que enseñe como hacerlo Hay algun "mailing list" de freepascal en español.
Gracias
Hi, all
I would like something similar to this, but it is very dificult implementation.
I need help or you know a book or tutorial, what to show how make this?
thanks
example :
FUNCTION WindowProc(Window: HWnd; Menssage, WParam,LParam:
Longint):Longint;stdcall;export;
BEGIN
Case Mensaje of
WM_LBUTTONUP :
Begin
MyWindow.MessageLButtonUp(Window,Message,Wparam,lparam);
End;
WM_CLOSE : Begin
MyWindow.MessageClose(Window,Message,Wparam,lparam) ;
End;
WM_PAINT : Begin
MyWindow.MessagePaint(Window,Message,Wparam,lparam) ;
End;
End;
ProcVentana := DefWindowProc(Ventana,Mensaje,WParam,LParam);
END;En donde :
Type
TEvento = PROCEDURE (Ventana: HWnd; Mensaje,WParam,LParam:Longint)
of Object;TWindow = class
MessageLButtonUp:TEvento;
MessageClose : TEvento;
.
..
...
End,Var MyWindow : TWindow;
etc.