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

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

курсор

Dy1 ©   (2009-09-25 19:18:00) 

у формы есть св-во Cursor, как его поменять динамически?

---

Dy1   (2009-10-14 09:23:00) [1]

в кол примерно так же, как с помощью мцк. Form.Cursor := LoadCursor(0, IDC_HAND); должно быть.

Hicon - при расшифровывании было получено "хендл иконки" :)
были какие-то ф-ии, но что-то сейчас не могу их найти.

---

Barloggg   (2009-10-13 16:03:00) [2]

однако вопрос все же актуален.
как это делается в КОЛ? причем без МСК...
что такое Hicon и как его сделать из битмапа?

---

CSS   (2009-10-13 14:24:00) [3]

Ой...
Извеняюсь... =(

Я на эту тему из Яндекса вышел, не посмотрел на раздел... =(

---

Dy1   (2009-09-29 13:38:00) [4]

было и есть в маусдауне после смены курсора. Двигает форму не за заголовок

---

D[u]fa   (2009-09-28 15:03:00) [5]

Form.Perform(WM_SYSCOMMAND, $F012, 0);

а где такое было? и чем мешало

---

Dy1   (2009-09-28 10:11:00) [6]

проблема оказалась в Form.Perform(WM_SYSCOMMAND, $F012, 0); Оно мешало смене. Проблема (как бы) решилась заменой KOLForm1MouseUp на KOLForm1Click, и в периодических глюках Делфи или Винды (тот же код то работает, то нет).

---

MTsv DN   (2009-09-27 19:28:00) [7]

Уважаемый, CSS...

Вы подфорумом ошиблись. Здесь только KOL.

---

CSS   (2009-09-27 18:35:00) [8]

>>> у формы есть св-во Cursor

Поясните что именно вам нужно... =)
Просто изменить "вид" курсора, или поставить свой собственный рисунок заместо курсора? =))

Просто вид меняется просто:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Cursor:=crSQLWait;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Cursor:=crHourGlass;
end;

Но! При таком способе курсор изменится только для формы - на других контролах он останется прежним...
Поэтому советую изменять курсор у объекта Screen:
procedure TForm1.Button3Click(Sender: TObject);
begin
Screen.Cursor:=crHourGlass;
end;

---

Dy1   (2009-09-25 22:32:00) [9]

а как стандартные? Которые можно поставить в редакторе. Кстати, в ресурсах никаких курсоров не нашлось

---

MTsv DN   (2009-09-25 20:32:00) [10]

WinAPI - LoadCursor

---

Наверх