当from的Enabled为false时不能改变Cursor?

Question

如题: 下面的代码不能达到要求改变Cursor的要求请问该怎么修改,谢谢!!Self.Cursor:=crHourGlass;
Screen.Cursor:=crHourGlass;
Self.Enabled:=false;
Self.Cursor:=crHourGlass;
Screen.Cursor:=crHourGlass;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel_client.Enabled := false;
  Screen.Cursor := crHourGlass;
end;
  object Panel_client: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0原因 Enabled := false 的窗体 捕获鼠标
由windows 处理 鼠标 可以用一个 Align = alClient 的Panel处理The SetCursor function establishes the cursor shape. The cursor is a shared resource. A window should set the cursor shape only when the cursor is in its client area or when the window is capturing mouse input. In systems without a mouse, the window should restore the previous cursor before the cursor leaves the client area or before it relinquishes control to another window.