Hola gente .. una consulta.. estoy haciendo un componente donde quiero capturar los eventos del Mouse para que los use el usuario y para que los use el componente mismo.. mi problema es que mientras que el usuario no le asigne ningún procedimiento al evento, éste puede ser utilizado por el componente sin nigún problema.. pero si el usuario necesita hacer su propia llamada para el evento entonces, ese evento, deja de funcionar para el componente y solo funciona para el usuario..
Definiendolo de esta manera funciona para el componente hasta que el usuario define su propio procedimiento..
Código Delphi
[-]
...
.....
...
published
......
...
.....
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
end;
....
...
....
constructor TMiClase.Create (AOwner : TComponent);
begin
Inherited Create (AOwner);
....
..
.....
....
OnMouseDown := MiClaseOnMouseDown;
OnMouseMove := MiClaseOnMouseMove;
OnMouseUp := MiClaseOnMouseUp;
...
....
..
.....
Lo cual es lógico porque al valor inicial que le puse lo cambia por el del usuario..
definiendolo de esta otra manera no funciona para nadie .. ni usuario ni componente...
Código Delphi
[-]
...
....
private
.....
....
......
...
FOnMouseDown : TMouseEvent;
FOnMouseMove : TMouseMoveEvent;
FOnMouseUp : TMouseEvent;
....
......
...
....
published
property OnMouseDown : TMouseEvent read FOnMouseDown write FOnMouseDown;
property OnMouseMove : TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
property OnMouseUp : TMouseEvent read FOnMouseUp write FOnMouseUp;
end;
Cómo debería hacer para que me funcione para ambos??
desde ya muchas gracias..