Главная страница
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.02 c
15-1190975008
pavel_guzhanov
2007-09-28 14:23
2007.11.11
Подскажите хороший форум по железу


11-1177177531
bessam
2007-04-21 21:45
2007.11.11
BitBtn.Enabled := False , а по виду надписи не скажешь.


2-1192625509
Pro100
2007-10-17 16:51
2007.11.11
Импорт из Excel


2-1192347654
Vasiliy
2007-10-14 11:40
2007.11.11
InterBase. Попытка соединения с локальной БД в режиме Run-Time


15-1192001092
Vudu
2007-10-10 11:24
2007.11.11
В России запретят CD-RW и DVD-RW?