Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.11;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
2-1192626983
Elec3C
2007-10-17 17:16
2007.11.11
Inc, Dec.


2-1192472919
Elec3C
2007-10-15 22:28
2007.11.11
Проблемка с динамическим массивом


2-1192454614
ANTPro
2007-10-15 17:23
2007.11.11
Выделение прозрачным прямоугольником


11-1176983639
restar82
2007-04-19 15:53
2007.11.11
ошибка при компиляции


15-1191803613
Бакук
2007-10-08 04:33
2007.11.11
Fastreport 2 —> FastReport 4 (*.frf —> *.fr3)