Главная страница
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.025 c
2-1192536340
Kolan
2007-10-16 16:05
2007.11.11
Variant := := StrToInt( 1 ) приводит к исключению, почему?


15-1191797155
Альберт Мобайл
2007-10-08 02:45
2007.11.11
посоветуйте


4-1177584855
Iv_
2007-04-26 14:54
2007.11.11
Кнопка- Bitmap на WinAPI


2-1192605907
l_v
2007-10-17 11:25
2007.11.11
передача по сети массивов


2-1192678112
Lebedev
2007-10-18 07:28
2007.11.11
Как динамически в RadioGroup создать Items?