как на 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]

наверно ни как :(

как на TMainMenu сделать видимым ani курсор Найти похожие ветки