Текущий архив: 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.06 c