Hand Point (link) cursor in Delphi

So I’m writing some code and need to use the hand point (link) cursor. However I noticed that Delphi is using different looking cursor than Windows. After I looked around in the Forms unit to see how TScreen handles cursors I wrote this fix which seems to work fine.

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crHandPoint]:= LoadCursor(0, IDC_HAND);
end;

Leave a Reply

Powered by WordPress
Copyright 2008 © Cubic Reality Software
Hosted By Futuron