Текущий архив: 2005.11.06;
Скачать: CL | DM;
Вниз
как на TMainMenu сделать видимым ani курсор Найти похожие ветки
← →
Денис (2005-10-12 23:28) [0]на форме все "ок", а при наведении курсора на TMainMenu становится
стандартным, как быть?
procedure TForm1.Button1Click(Sender: TObject);
var
h : THandle;
begin
h := LoadImage(0,"C:\TheWall\Magic.ani",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);
if h = 0 then ShowMessage("Cursor not loaded")
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;
← →
Денис (2005-10-13 22:25) [1]наверно ни как :(
Страницы: 1 вся ветка
Текущий архив: 2005.11.06;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.041 c
