Ver Mensaje Individual
  #2  
Antiguo 07-05-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
1. Creas un archivo de recursos cursores.res con el ImageEditor de Delphi

2. Le agregas un cursor con File|New|Cursor y le pones un nombre adecuado, digamos MICURSOR (así, en mayúsculas)

2.5 Dibujas el cursor (o le pegas una imagen)

3. Indicas el punto sensible (hot spot) del cursor con Cursor|Set HotSpot

4. En la unidad de tu formulario principal añades
Código Delphi [-]
{$R cursores.res}
para agregar el archivo de recursos

5. En el OnCreate del formulario pones

Código Delphi [-]
const
  crMiCursor = 1;

Screen.Cursors[crMiCursor] := LoadCursor(HInstance, 'MICURSOR');
Button1.Cursor := crMiCursor;

La segunda pregunta hazla en otro hilo.

// Saludos
Responder Con Cita