vserd Цитата: И судя по постам в прошлых топиках, курсоры нужно менять для всех классов на форме? Как в Delphi нельзя указать
инно не знает что такое Screen, поэтому либо "менять для всех классов на форме", либо подменой системного курсора
[more]
[Code]
var
c1,c2:LongWord;
function LoadCursor(hInstance:LongWord;lpCursorName:LongWord):LongWord; external 'LoadCursorA@user32.dll stdcall';
function SetSystemCursor(hcur:LongWord;id:DWORD):BOOL; external 'SetSystemCursor@user32.dll stdcall';
function CopyIcon(hIcon:LongWord):LongWord; external 'CopyIcon@user32.dll stdcall';
function InitializeSetup(): Boolean;
begin
//сохраняем копии курсоров
c1:=CopyIcon(LoadCursor(0,32512)); //crDefault
c2:=CopyIcon(LoadCursor(0,32514)); //crHourGlass
Result:=True;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
//меняем системный курсор - crDefault на crHourGlass
SetSystemCursor(CopyIcon(c2),32512);
Result:=True;
end;
function BackButtonClick(CurPageID: Integer): Boolean;
begin
//меняем системный курсор - crHourGlass на crDefault
SetSystemCursor(CopyIcon(c1),32512);
Result:=True;
end;
procedure DeinitializeSetup();
begin
//возвращаем все взад, чтобы юзеры не обиделись
SetSystemCursor(c2,32514);
SetSystemCursor(c1,32512);
end;
[/more]