Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.024 c
1-36620
qwe
2003-11-21 16:53
2003.12.12
Invalid Class Typecast


1-36711
smat
2003-12-02 15:30
2003.12.12
TRichEdit и Clipboard


3-36534
st_av
2003-11-21 01:58
2003.12.12
Описание EhLib


4-36909
idr
2003-10-20 11:29
2003.12.12
Пуст ли буфер обмена?


8-36767
Zorik
2003-08-14 11:10
2003.12.12
как отобразить 3D карту поверхности