| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Указатель [D6, D7, WinXP]
Ivolg © (2004-03-29 09:35:00)Здрасьте! Знаю что это вопрос я уже задовал но я потеря код! Как монжно у своего приложения зделать свой укозатель мыши!
Юрий Зотов (2004-03-30 16:12:00) [1]This example shows how to add custom cursors to an application. It assumes that a custom cursor with the name NewCursor has been added to the resources (.RES file) of the application. You can add the cursor using the image editor. (Tools | Image Editor)
The following code makes this cursor available to the application via the constant crMyCursor, and sets it as the global cursor to the application.
const
crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
Cursor := crMyCursor;
end;
Diamond Cat (2004-03-29 12:21:00) [2]Screen.Cursor := crHourglass;
Ivolg (2004-03-29 11:11:00) [3]Юрий Зотов
Чтото не нашёл! Кинь свой приммер или из справки который ты нашёл! Плиз!
Юрий Зотов (2004-03-29 10:27:00) [4]См. в справке TScreen.Cursors. Там и пример есть.
| |
