Скачать: CL | DM;

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

← →
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 лучше брать положительным

---

← →
Zapped ©   (2003-12-02 02:42) [6]

З.Ы. Сам с час назад задавался тем же вопросом...
З.Ы.Ы.
а вообще-то во многих ФАКах этот вопрос есть...
правда, там вместо {$ 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");

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c