Текущий архив: 2003.12.12;
Скачать: 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 вся ветка
Текущий архив: 2003.12.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
