PHP DM Gate v0.9 » курсор

Dy1 (25.09.09 19:18) [0]

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

<Цитата>
MTsv DN (25.09.09 20:32) [1]

WinAPI - LoadCursor

<Цитата>
Dy1 (25.09.09 22:32) [2]

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

<Цитата>
CSS (27.09.09 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 (27.09.09 19:28) [4]

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

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

<Цитата>
Dy1 (28.09.09 10:11) [5]

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

<Цитата>
D[u]fa (28.09.09 15:03) [6]

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

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

<Цитата>
Dy1 (29.09.09 13:38) [7]

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

<Цитата>
CSS (13.10.09 14:24) [8]

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

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

<Цитата>
Barloggg (13.10.09 16:03) [9]

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

<Цитата>
Dy1 (14.10.09 09:23) [10]

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

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

<Цитата>