Текущий архив: 2004.09.19;
Скачать: CL | DM;
Вниз
Курсор Найти похожие ветки
← →
dimon1979 (2004-09-02 11:37) [0]Добрый день! Как можно сделать мигающий курсор в виде чёрного квадратика(чёрный на белый и наоборот)?
← →
clickmaker © (2004-09-02 11:56) [1]мышинный или клавиатурный?
← →
dimon1979 (2004-09-02 12:12) [2]Мышинный!
← →
antonn © (2004-09-02 13:14) [3]создать ani и грузить его.
← →
Rem (2004-09-03 08:15) [4]Как использовать анимированный курсор в своем приложении?
procedure TForm1.FormCreate(Sender: TObject);
var
h: THandle;
begin
h := LoadImage( 0, "C:\Animation.ani", IMAGE_CURSOR,
0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE );
if h = 0 then
ShowMessage( "Курсор не загружен" )
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;
Страницы: 1 вся ветка
Текущий архив: 2004.09.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.05 c
