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

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

Свой курсор [D7, WinXP]

Antonmm ©   (2004-09-10 14:57:00) 

Как загрузить свой курсор из файла?

---

icWasya   (2004-09-10 16:43:00) [1]


interface
....
const
 MyCursor = 1024; //или как Вам нравится
....

implementation

.....
// загрузка
procedure ReadCursorFromFile(const Cur:TCursor;const FileName:String);
var
 CursorHandle:THandle;
begin
 CursorHandle:=LoadCursorFromFile (PChar(FileName));

 if CursorHandle=0 then raise Exception.Create('не могу загрузить курсор '+FileName);
   Screen.Cursors[Cur]:=CursorHandle;
end;

procedure ReadCursorFromResourse(const Cur:TCursor;const ResourseName:String);
var
 CursorHandle:THandle;
begin
 CursorHandle:=LoadCursor(HInstance,PChar(Name));
 If CursorHandle=0 Then
   CursorHandle:=LoadCursor(HInstance,MakeIntResource(Value));

 if CursorHandle=0 then raise Exception.Create('не могу загрузить курсор '+FileName);
   Screen.Cursors[Cur]:=CursorHandle;
end;

/// использование
procedure TForm1.Button1Click(Sender:TObject);    
begin
 TMemo1.Cursor:=MyCursor;
end;


---

Наверх