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

[abc3000]

如题: 下面的代码不能达到要求改变Cursor的要求

请问该怎么修改,谢谢!!

Self.Cursor:=crHourGlass;
Screen.Cursor:=crHourGlass;
Self.Enabled:=false;
Self.Cursor:=crHourGlass;
Screen.Cursor:=crHourGlass;

[abc3000]

up

[Eddie005]

路过顶~

[快乐老猫]

子窗体每问题，主窗体的确出现这个问题了。需要找原因。

[abc3000]

UP

[withcsharp]

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.

[namehzf]

路过 的 顶顶