View Single Post
  #1537  
Old 10-04-2023, 10:22
Lord.Freddy's Avatar
Lord.Freddy Lord.Freddy is offline
Registered User
 
Join Date: Apr 2022
Location: ...
Posts: 54
Thanks: 222
Thanked 41 Times in 25 Posts
Lord.Freddy is on a distinguished road
Quote:
Originally Posted by Cesar82 View Post
Does anyone know how to change the border cursor of an EDIT?
See the attached file.
I would like the cursor when entering the edit to also display the "Hand" cursor and not the "Arrow" cursor.
P.S: If you disable the Edit border, this cursor is not displayed.
Although the attachment file is created in delphi I would like a solution that I can use in Inno Setup.
Thanks!
I found this, but I don't know if it works or not
Code:
[_Code]
const
  IDC_MYCURSOR = 100; // Custom cursor ID

var
  MyCursor: HCURSOR;

function LoadCursorFromFile(lpFileName: string): HCURSOR;
  external '[email protected] stdcall';

procedure InitializeWizard;
begin
  MyCursor := LoadCursorFromFile('C:\Path\To\MyCursor.cur');
end;

procedure CurPageChanged(CurPageID: Integer);
var
  EditHandle: HWND;
begin
  if CurPageID = wpSelectDir then begin
    EditHandle := WizardForm.DirEdit.Handle;
    SendMessage(EditHandle, EM_SETCURSOR, 0, LPARAM(MyCursor));
  end;
end;
__________________
¤ Life good be a Dream ¤
Reply With Quote