VPF::Курсор на кнопке - Форум программистов

Serhik_z

Дата 6.12.2005, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Как загрузить курсор на кнопку (((RzButton1))(Raize компонент)) при наведении на нее.
И при нажатии - другой курсор.
А на форме еще один вид курсора.

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  h:HCURSOR;
begin
  h:=LoadCursorFromFile('hand1.ani'); // курсор
  Screen.cursors[1]:=h;
  Form1.cursor:=1;

Slayers

Дата 6.12.2005, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 17.7.2005
Где: Харьков

Репутация: нет
Всего: 1

Цитата(Serhik_z @ 6.12.2005, 14:47)

Как загрузить курсор на кнопку (((RzButton1))(Raize компонент))

Я делал всё на обычной кнопке (т.е попробуй написать вместо Button1 - RzButton1 , должно заработать .
Вот держи :

Код


procedure TForm1.FormCreate(Sender: TObject);
var
h:HCURSOR;
begin
h:=LoadCursorFromFile('1.ani'); // курсор 
Screen.cursors[1]:=h;
Form1.cursor:=1;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

var
h:HCURSOR;
begin
h:=LoadCursorFromFile('1.ani'); // курсор 
Screen.cursors[1]:=h;
Form1.cursor:=1;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
h:HCURSOR;
begin
h:=LoadCursorFromFile('12.ani'); // курсор 
Screen.cursors[1]:=h;
Button1.cursor:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
h:HCURSOR;
begin
h:=LoadCursorFromFile('g.ani'); // курсор
Screen.cursors[1]:=h;
Button1.cursor:=1;
end;

end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »