Delphi: Usando cursores propios

Este artículo explica cómo embeber sus propios cursores en su aplicación Delphi

Índice de Trucos Delphi

Usando cursores propios

Para usar cursores propios en su aplicación debe seguir los siguientes pasos:

1. Crear los cursores y guardarlos en un archivo de recursos. Puede usar el Image Editor que viene con Delphi para este propósito.

2. En la sección interface de cualquier unidad de su proyecto declare las constantes para referirse a sus cursores en el código. No es necesario hacerlo, pero mejorará la legibilidad de su código, así que es altamente recomendado.

Estas constantes deben ser enteros positivos. Por ejemplo:

const
  crDedo = 1;
  crRayo = 2;

3. En la sección initialization de esta unidad, o en cualquier lugar de su proyecto antes que intente usar sus cursores, tiene que cargar los cursores del archivo de recursos. Por ejemplo:

  uses Windows;

  ...

  {$R Cursores.res}
  Screen.Cursors[crDedo] := LoadCursor(hInstance, 'DEDO');
  Screen.Cursors[crRayo] := LoadCursor(hInstance, 'RAYO');

Aquí hemos asumido que "Cursores.res" es el archivo de recursos donde ha guardado sus cursores y que DEDO y RAYO son los nombres bajo los cuales los guardó.

Eso es todo. Puede usar estos cursores del mismo modo en que usaría los cursores predefinidos. Por ejemplo:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Cursor := crRayo;
  Label1.Cursor := crDedo;
end;

También puede establecer las propiedades Cursor y DragCursor de un componente en tiempo de diseño usando el Inspector de Objetos. La única contra es que no puede usar los nombres de las constantes (por ejemplo crDedo y crRayo) sino que tiene que usar sus valores (por ejemplo 1 y 2).