Курсор

← →
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;

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

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