Главная страница | назад





Article #27561: How to capture the current cursor icon and draw it.

QUESTION:

How do I get the handle of the current cursor and draw on my form?

ANSWER:

There is a Windows API call to do this: DrawIconEx(). This function draws an icon or cursor in the area specified by the X and Y coordinates, that are parameters to this function. You can pass it a given handle and it will draw that icon. Here is an example that sets the cursor handle and draws the icon.

procedure TForm1.Button1Click(Sender: TObject);
var
HCursor : THandle;
begin
HCursor:= Screen.Cursors[Ord(Screen.Cursor)];//Gets the cursor handle.
// X Y Size
DrawIconEx(Form1.Canvas.Handle, 150, 150, HCursor, 32, 32,
0, 0, DI_NORMAL);//Draws to canvas
end;

Last Modified: 03-AUG-01