Текущий архив: 2002.04.15;
Скачать: CL | DM;

Вниз

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

← →
skiph ©   (2002-04-03 10:37) [0]

Ка добавить в список Cursor (свойство всех визуальных компонент) свой тип курсора.

---

← →
Виктор Щербаков ©   (2002-04-03 10:44) [1]

Вот из хэлпа:
const
crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, "NewCursor");
Cursor := crMyCursor;
end;
Курсор предварительно нужно положить в ресурсы.

---

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

Текущий архив: 2002.04.15;
Скачать: CL | DM;

Наверх

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