如何获得鼠标光标当前是IDC_HAND还是IDC_CROSS？？

Question

用LoadCursor可以设定鼠标形状，用GetCursor可以获得鼠标光标的句柄，那我怎么知道这个句柄是对应IDC_HAND或是IDC_CROSS呢？

Answer 1

如果要得到程序本身的光标这样还是可以的procedure TForm1.btn1Click(Sender: TObject);
begin
  case screen.Cursor of
    crDefault :Showmessage('crDefault');
    crNone    :Showmessage('crNone');
    crArrow      :showmessage('crArrow');
    crCross      :showmessage('crCross');
    crIBeam      :showmessage('crIBeam');
    crSize       :showmessage('crSize');
    crSizeNESW   :showmessage('crSizeNESW');
    crSizeNS     :showmessage('crSizeNS');
  end
end;