Главная страница
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.016 c
6-1173882512
tytus
2007-03-14 17:28
2007.11.11
Indy_10 Как правильно отключить клиента?


2-1192561443
smartleds
2007-10-16 23:04
2007.11.11
Коллеги, подскажите как найти максимальный номер элемента


15-1190992526
vasIZmax
2007-09-28 19:15
2007.11.11
True, False и Почти (Almost, по англ. по-моему))))


6-1173453698
Empleado
2007-03-09 18:21
2007.11.11
Мой первый application hangs (Indy)


2-1192557885
Riply
2007-10-16 22:04
2007.11.11
Помогите с оптимизацией.