Delphi自定义光标形状

procedure T屏幕取色器.img1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    img1.Visible := false;
    SetCursor(Application.icon.Handle);   //把光标变成程序图标.也可是其他正在运行的程序的图标
  end;

end;

procedure T屏幕取色器.img1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  img1.Visible := true;
  SystemParametersInfo(SPI_SETICONS, 0, nil, SPIF_SENDCHANGE);　　//恢复默认光标
end;

 如果要定义成图片,需要用到:

需要加载资源文件