那個

SetCursor. But I think VCL uses its own mechanism to change the cursor regularly, so you may need to set the cursor frequently.

What do you want to do? Maybe Screen.Cursor works for you?

我想:當一個

Hi AMD支持者,    誠如 william 版大所言，設定 Screen.Cursor 即可    

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  ...
  Screen.Cursor := crDefault;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi AMD支持者, 誠如 william 版大所言，設定 Screen.Cursor 即可

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  ...
  Screen.Cursor := crDefault;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 但必須用windowsAPI!因為我不是用delphi!! 那個

The SetCursor function establishes the cursor shape. HCURSOR SetCursor( HCURSOR hCursor // handle of cursor ); Parameters hCursor Identifies the cursor. The cursor must have been created by the CreateCursor or loaded by the LoadCursor or LoadImage function. If this parameter is NULL, the cursor is removed from the screen. Windows 95: The width and height of the cursor must be the values returned by the GetSystemMetrics function for SM_CXCURSOR and SM_CYCURSOR. In addition, the cursor bit depth must match the bit depth of the display or the cursor must be monochrome. Return Values The return value is the handle of the previous cursor, if there was one. If there was no previous cursor, the return value is NULL. Remarks The cursor is set only if the new cursor is different from the previous cursor; otherwise, the function returns immediately. 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. If your application must set the cursor while it is in a window, make sure the class cursor for the specified window's class is set to NULL. If the class cursor is not NULL, the system restores the class cursor each time the mouse is moved. The cursor is not shown on the screen if the internal cursor display count is less than zero. This occurs if the application uses the ShowCursor function to hide the cursor more times than to show the cursor. See Also CreateCursor, GetCursor, GetSystemMetrics, LoadCursor, LoadImage, SetCursorPos, ShowCursor

謝謝