Свой Курсор

← →
Urvin © (2003-12-01 18:10) [0]

Как к проету подключить свой курсор, Хотелось бы так, чтобы он действовал только на одном обьекте, и больше нигде (или где поставлю). Курсор желательно брать из ресурсов проета (*.res).

← →
jack128 © (2003-12-01 18:12) [1]

HCURSOR LoadCursor(

HINSTANCE hInstance, // handle of application instance
LPCTSTR lpCursorName // name string or cursor resource identifier
); 5 секунд поиска в хелпе...

← →
Юрий Зотов © (2003-12-01 18:13) [2]

TScreen.Cursors + F1

На одном объекте - свойство Cursor.

← →
Urvin © (2003-12-01 19:30) [3]

...
Как-то все заумно для меня, ламера...
Пожалуйста, можно поподробнее? умоляю! Очень надо!
В конце концов, девушка бросит!

← →
Юрий Зотов © (2003-12-01 19:34) [4]

Смотрим в хелпе TScreen.Cursors. Вверху есть линк Example. Там практически готовый код.

← →
zapped © (2003-12-02 02:38) [5]

{$R cursors.res} .. const CUR_ID = 1; Screen.Cursors[CUR_ID] := LoadCursor(hInstance, "CURSOR_NAME"); ... Button1.Cursor := CUR_ID; ...
CUR_ID лучше брать положительным

З.Ы. Сам с час назад задавался тем же вопросом...
З.Ы.Ы.
а вообще-то во многих ФАКах этот вопрос есть...
правда, там вместо {$ R ...} пишут почему-то {$ I...} но наше дело думать головой...

← →
Omen (2003-12-02 03:29) [7]

Создаём cur.res
---------
uses Unit1;

{$R *.dfm}
{$R cur.res}

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crDefault] := LoadCursor(HInstance, "Default");

Свой Курсор Найти похожие ветки