Текущий архив: 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.44 MB
Время: 0.03 c
