Курсор

← →
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;

Курсор Найти похожие ветки