Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.06;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
2-1152863390
Евгений2003
2006-07-14 11:49
2006.08.06
Как управлять USB портом через delphi?


2-1153322064
Константинов
2006-07-19 19:14
2006.08.06
Консольное приложение нечитаемые символы


2-1152689581
Mamed
2006-07-12 11:33
2006.08.06
Osvejit ekran


3-1148922995
Katyyha
2006-05-29 21:16
2006.08.06
Курсач


2-1153341775
userrrrr
2006-07-20 00:42
2006.08.06
Подключение к сети