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

Or login with your forum information

;) :| :x :twisted: :) 8O :( :roll: :P :oops: :o :mrgreen: :lol: :idea: :D :evil: :cry: 8) :arrow: :? :?: :!: