请问在 delphi 中怎么使用自己定义的鼠标！

Question

你只要把form的字体修改了成songti就行了，
其他的放在上面的控件字体就都变了，因为form是他们的容器，他们从容器可以继承字体。
不过，每个form你都要修改。

Answer 1

关于鼠标指针的形状，你要参考api, loadCursor,LoadCursorFromFile，
SetCurosr

Answer 2

Const
  crMyCursor = 1;
  {$R CussorMouse.res}//在这儿

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 装入鼠标资源
  Screen.Cursors[crMyCursor] := LoadCursor(hInstance,'CROSS1');
  // 改变窗体的鼠标形状
  Cursor := crMyCursor;
end;

Answer 3

Const clred=1;
      clmove=2;
formcreate里装入
        Screen.Cursors[crred] := LoadCursor(HInstance, 'RED');
        Screen.Cursors[crmove] := LoadCursor(HInstance, 'MOVE');
其中'RED','MODE'是资源文件中的鼠标图片资源文件用delphi自带的image工具增加鼠标。
加完后，先关闭工程，在打开工程才可用（因为delphi装载文件）