Quote:
Originally Posted by Cesar82
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;