Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Ivolg ©   (2006-07-21 00:07) [0]

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

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


---

← →
Джо ©   (2006-07-21 00:38) [1]

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


Image1.Cursor := 1;
?

---

← →
Footballer ©   (2006-07-21 00:42) [2]

> Ivolg ©   (21.07.06 00:07)

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

---

← →
PSPF2003 ©   (2006-07-21 08:31) [3]

const crMyCursor = 1;

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

---

← →
Ivolg ©   (2006-07-21 12:19) [4]

Всем спасибо, я разобрался... Незнаю, но мне кажется, что у меня неработает функция 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;
...


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c