Скачать: CL | DM;

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

← →
spark81 ©   (2003-04-06 12:19) [0]

Подскажите пожалуйста как вставить свой курсор в Delphi

---

← →
DrPass ©   (2003-04-06 12:48) [1]

Всем бы твои проблемы

---

← →
Intell ©   (2003-04-06 12:52) [2]

procedure TForm1.FormShow(Sender: TObject);
var
h : THandle;
begin
h:=LoadImage(0,"Курсор указываете здесь или путь к нему",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);
if h = 0 then ShowMessage("Внимание! Курсор не загружен")
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;

---

← →
spark81 ©   (2003-04-06 20:04) [3]

Большое спасибо!!!

---

← →
Спрашивающий   (2003-04-07 04:30) [4]

Но можно и подругому курсор поместить в ресурс программы
и тогда не надо будет его отдельно тоскать с программой.
implementation
{$R *.DFM}
{$R Cursor.res}//создаешь в ImageEditor

procedure TForm1.FormCreate(Sender: TObject);
begin
//Регистрируешь курсор
Screen.Cursors[1]:=LoadCursor(HInstanse,"Имя курсора")
end;

"Имя курсора"-это имя курсора,который рисуешь в ImageEditor
курсор входит в файл Cursor.res
И далее в любом месте программы используешь
Form1.Cursor := 1;
Только учти что присваивая номер например [1]-не повторяй его
для каждого курсора свой номер. Я уже не помню ну помоему от -1 до -? располагабтся стандартные курсоры поэтому иди
в направлении 1 и более.

---

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

Скачать: CL | DM;



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