Como trocar Cursor na REBAR (Barra de botões) ?

[AOKISANTOS]

Antonio, como trocar o cursor quando o mouse esta sobre a classe REBAR?

Gracias

Aoki

[Antonio Linares]

Aoki,

Modify this method in Class TToolBar:

METHOD MouseMove() INLINE If( ::oCursor != nil, SetCursor( ::oCursor:hCursor ),), nil

Then in your code simply do:

DEFINE CURSOR oHand RESOURCE "hand"
...
oToolBar:oCursor = oHand