Cambiar puntero al mouse al pasar sobre un boton

[Caroso]

hola amigos de club delphi...

les queria consultar si alguno me podría decir como cambiar el puntero (del mouse) al pasar sobre un boton, pero hacerlo con la API de windows...
algo similar a lo que se trata en este hilo... pero para delphi

http://www.clubdelphi.com/foros/showthread.php?t=56107

Desde ya muchas gracias

[Casimiro Notevi]

Pues tal y como se explica en ese otro hilo

[Caroso]

alguien me podría ayudar de no ser molestia?¿

[Casimiro Notevi]

Empezado por Caroso

alguien me podría ayudar de no ser molestia?¿

Pues tal y como se explica en ese otro hilo

[Caroso]

alguien que sepa como lograrlo en DELPHI

[Neftali [Germán.Estévez]]

A ver si esta entrada y la explicación te sirven.

De todas formas, recuerda que las funcione de la API, son las mismas independientemente del lenguaje desde el cual las llames.

[ecfisa]

Empezado por Caroso

hola amigos de club delphi...

les queria consultar si alguno me podría decir como cambiar el puntero (del mouse) al pasar sobre un boton, pero hacerlo con la API de windows...

Hola Caroso.

Cuando cambiar el cursor de un TButton es tán simple como asignar un valor en su propiedad Cursor, no logro entender en que situación podrías precisar de ese recurso.

Se me ocurre que quizá quisieras que el TButton pudiera tomar mas de un cursor (de acuerdo a alguna condicion) cuando pase el puntero sobre él, pero aún así no veo la ventaja de hacerlo con la API de Windows. Podrías hacer algo parecido a este código:

Código Delphi [-]
...
type
  TButton = class(StdCtrls.TButton)
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
  public
  end;
...
implementation

var
  unaCondicion: Integer = 0;

procedure TButton.CMMouseEnter(var Msg: TMessage);
begin
  // A fin de ejemplo, asigno la supuesta condición y  
  // el correspondiente cursor de forma aleatoria
  unaCondicion:= Random(22)*-1;
  Cursor:= unaCondicion;
end;

procedure TButton.CMMouseLeave(var Msg: TMessage);
begin
  Cursor:= crDefault
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

Creo que a partir de Delphi 2007 o 2009 los eventos OnMouseEnter y OnMouseLeave están publicados (accesibles desde el Object Inspector).

Saludos

[Casimiro Notevi]

Empezado por ecfisa

... cambiar el cursor de un TButton es tán simple como asignar un valor en su propiedad Cursor, no logro entender en que situación podrías precisar de ese recurso.

Sí que es raro

[Neftali [Germán.Estévez]]

Empezado por ecfisa

Hola Caroso.

Cuando cambiar el cursor de un TButton es tán simple como asignar un valor en su propiedad Cursor, no logro entender en que situación podrías precisar de ese recurso.

Cierto, pensando en otras cosas nos hemos ido por las ramas...
hemos olvidado que los componentes ya poseen esa propiedad.

[Casimiro Notevi]

Bueno, yo sí lo había tenido en cuenta, pero como Caroso dice:

Empezado por Caroso

... pero hacerlo con la API de windows...

Pues eso.