курсор

← →
Dy1 (2009-09-25 19:18) [0]

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

← →
MTsv DN (2009-09-25 20:32) [1]

WinAPI - LoadCursor

← →
Dy1 (2009-09-25 22:32) [2]

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

← →
CSS (2009-09-27 18:35) [3]

>>> у формы есть св-во 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;

← →
MTsv DN (2009-09-27 19:28) [4]

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

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

← →
Dy1 (2009-09-28 10:11) [5]

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

← →
D[u]fa (2009-09-28 15:03) [6]

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

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

← →
Dy1 (2009-09-29 13:38) [7]

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

← →
CSS (2009-10-13 14:24) [8]

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

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

← →
Barloggg (2009-10-13 16:03) [9]

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

← →
Dy1 (2009-10-14 09:23) [10]

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

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

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