Cambio de cursor...

[The_Avatar]

he intentado el ejemplo de uno de los hilos que hay en el foro q usa loadcursorfromfile y despues a la desesperada:
X.cursor:=loadcursorfromfile('RUTA al .cur')
asi como asignarle X.cursor:=screen.cursor[1]

cuando digo infructuosos es q NO cambia la imagen.

[[Delphius]]

Cuando presioné para responderte, noté que Neftali ya dio una buena referencia.
Y su código funciona.
Edito mi mensaje porque el código que puse tenía una falla.

Saludos,

[The_Avatar]

probe asignando los cursores x defecto y SI q funciona, pero cuando pruebo con la funcion LOADCURSORFROMFILE-->screen.Cursor:=LoadCursorFromFile('RUTA') NO cambia el cursor. como narices uso un icono de cursor que yo quiera?? con los predefinidos esta claro...

[[Delphius]]

The_Avatar,
Este ejemplo lo que hace es cargar un cursor desde un archivo y lo muestra en la parte izquierda de la pantalla, mientras que si el cursor está del lado derecho muestra el de por defecto...

Lo que tu deberás hacer es limitar el área en donde se deberá mostrar el cursor que elijas... En tu caso, dependiendo de los límites y la posición del objeto en cuestión.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  //cargar los cursores
  // en el ejemplo en 1
  screen.Cursors[1] := LoadCursorFromFile('C:\WINDOWS\Cursores\3dgarro.cur');
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if X < (ClientWidth div 2)
     then screen.Cursor := 1
     else screen.Cursor := crDefault;
end;

end.

Si esto no te funciona... habría que ver en tu código si tienes algún problema... No se que puede estar mal.

Saludos,