Системный курсор Link Select

← →
-=GaLaN=- © (2003-05-28 18:44) [0]

Как задействовать сабж в Delphi? В любом компоненте есть все, кроме этого.

← →
-=GaLaN=- © (2003-05-28 19:36) [1]

Помогите, пожалуйста!

← →
Hint © (2003-05-28 19:45) [2]

crHandPoint вам нужен что-ли?

← →
-=GaLaN=- © (2003-05-28 20:19) [3]

Нет, это уже готовый курсор. Я имею в виду те курсоры, что пользователь может настроить в Control Panel->Mouse. А именно один из этих курсоров, Link Select.

← →
Goblinus © (2003-05-28 23:25) [4]

function GetLinkSelectCursor(Inst: THandle; ResID: PChar): TCursor;
var
C: hCursor;
begin
C := LoadCursor(Instance, ResID);
if C = 0 then C := LoadAniCursor(Instance, ResID);
if C = 0 then ResourceNotFound(ResID);
for Result := 100 to High(TCursor) do
if (Screen.Cursors[Result] = Screen.Cursors[crDefault]) then begin
Screen.Cursors[Result] := C;
Exit;
end;
DestroyCursor(C);
raise EOutOfResources.Create(ResStr(SOutOfResources));
end;

Что-то я не понял, а как это использовать?

Помогите, пожалуйста!

Системный курсор Link Select Найти похожие ветки