| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Курсор [D7, XP]

Ivolg ©   (2006-07-21 00:07:00) 

Почему курсор не загружается ? Делаю вот так:

Screen.Cursors[1] := LoadCursor(HInstance, 'Zoom_In');
Image1.Cursor := Screen.Cursors[1];


---

Ivolg   (2006-07-21 12:19:00) [1]

Всем спасибо, я разобрался... Незнаю, но мне кажется, что у меня неработает функция LoadCursor... Поэтому я сделал вот так:

...
var
   Cursor: TIcon;
   ResSream: TResourceStream;
begin
    ResStream:=TResourceStream.Create(HInstance, 'Zoom_In', PChar('CURSORFILE'));
    Cursor:=TIcon.Create;
    Cursor.LoadFromStream(ResStream);
    Screen.Cursors[1]:=Cursor.Handle;
    Image1.Cursor:=Screen.Cursors[1];
    Image1.Cursor:=1;
    ResStream.Free;
end;
...


---

PSPF2003   (2006-07-21 08:31:00) [2]

const crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile('c:\mystuff\mycursor.ani');
Cursor := crMyCursor;
end;

---

Footballer   (2006-07-21 00:42:00) [3]

> Ivolg ©   (21.07.06 00:07)

Не уверен, но по-моему:
Screen.Cursors[cr1] := LoadCursor(HInstance, 'Zoom_In');
Image1.Cursor := Screen.Cursors[cr1];

---

Джо   (2006-07-21 00:38:00) [4]

> Image1.Cursor := Screen.Cursors[1];


Image1.Cursor := 1;
?

---

Наверх