- type
- TEvent = Procedure(Sender : Pointer);
- TMouseEvent = Procedure (Sender : Pointer; x, y, Button : Integer);
- TGLButton = Object
- ....
- OnClick : TEvent;
- OnMouseDown,
- OnMouseMove,
- OnMouseUp : TMouseEvent;
- .....
- Constructor Init;
- Procedure ButtonPressed;
- end;
- ....
- Constructor TGLButton.Init;
- begin
- .....
- OnClick := NIL;
- OnMouseDown := NIL;
- OnMouseMove := NIL;
- OnMouseUp := NIL;
- end;
- Procedure TGLButton.ButtonPressed;
- begin
- If @OnClick <> NIL
- then
- OnClick(@Self);
- end;
- ....