Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

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

← →
Antonmm   (2004-09-10 14:57) [0]

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

---

← →
icWasya ©   (2004-09-10 16:43) [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;


---

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

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.036 c