Форум: "Начинающим";
Текущий архив: 2007.11.11;
Скачать: [xml.tar.bz2];

Вниз

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

← →
apic ©   (2007-10-18 15:20) [0]

В папке с программой есть файл c.cur. Как при наведении на какой либо компонент сделать чтобы отображался курсор из этого файла?

---

← →
Palladin ©   (2007-10-18 15:29) [1]

взято из справки и слегка модифицированно

const
 crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
 Screen.Cursors[crMyCursor] := LoadCursorFromFile (PChar(ExtractFilePath(ParamStr(0))+"c.cur"));
 Button1.Cursor := crMyCursor;
end;

---

← →
apic ©   (2007-10-18 15:36) [2]

При много благодарен!

---

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

Форум: "Начинающим";
Текущий архив: 2007.11.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.047 c