Cambio de cursor...

[The_Avatar]

Mi objetivo es q en un objeto X con la propiedad CURSOR al llegar a la IZDA (x<50 de la propiedad mousemove de ese objeto x ejemplo) el cursor cambie a una flecha que señale a la izquierda. Para que os hagais una idea el objetivo seria algo parecido a lo que hacen los juegos de estrategia para desplazar la pantalla. He estado mirando varios hilos al respecto y no logro hacer que cambie el dibujo del cursor. He probado con loadcursorfromfile y asignandolo como dice en algun hilo pero los resultados son infructuosos. Alguna idea?? Os lo agradezco de antemano.^^

[[Delphius]]

¿Podrías indicarnos el código que estás siguiendo?
¿A que llamas resultados infructuosos?¿No lo cambia?¿Provoca un error?

Saludos,

[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.

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

Crea un form y en el MouseMove coloca este código:

Código Delphi [-]
  if x<50 then begin
    Screen.Cursor := crSizeCross;
  end
  else if (x > Self.Width - 50) then begin
    Screen.Cursor := crDrag;
  end
  else if (y < 50) then begin
    Screen.Cursor := crHourGlass;
  end

  else begin
    Screen.Cursor := crDefault;
  end;

Debería funcionar igual si el cursor lo cargas de un recurso o de disco.

[[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,