Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
kolya4ever
0 / 0 / 0
Регистрация: 30.11.2010
Сообщений: 3
#1

Написать процедуру, изменяющую вид курсора на указанный - Delphi

29.06.2011, 18:15. Просмотров 729. Ответов 1
Метки нет (Все метки)

Написать процедуру в Delphi которая при нажатии на кнопку реализует изменение вида курсора на указанный
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2011, 18:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать процедуру, изменяющую вид курсора на указанный (Delphi):

Нужно привести процедуру выделения слов из текста в рабочий вид
Как-то запутался и не могу по нормальному переделать, если можно ответ кодом. ...

Составьте процедуру, изменяющую исходный одномерный массив путем деления его положительных элементов на свои индексы
Задача: Составьте процедуру, изменяющую исходный одномерный массив путем...

Написать функцию, изменяющую значение n-го бита на противоположное
Написать функцию, изменяющую значение n-го бита на противоположное. Значение...

Написать программу, изменяющую цвет экрана в зависимости от вводимого числа
Написать программу, изменяющую цвет экрана в зависимости от вводимого числа

Написать программу, изменяющую в предложении, заданном пользователем, порядок слов на обратный
напечатать предложение с клавиатуры и программа имеет напечатать предложения со...

Изменить вид курсора
Как можно изменить вид курсора? Например: когда присходит какое-то событие он...

1
Zaxelf
83 / 83 / 59
Регистрация: 14.05.2010
Сообщений: 223
30.06.2011, 16:33 #2
Лучший ответ Сообщение было отмечено kolya4ever как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function loadcursor( F: Twincontrol; filename: string): bool;
var
  h : THandle;
begin
  h := LoadImage(0,pchar(filename),IMAGE_CURSOR, 0, 0,LR_DEFAULTSIZE or LR_LOADFROMFIle);
  if h=0 then result:=false else result:=true;
  screen.Cursors[1]:=h;
  F.Cursor:=1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 loadcursor(self, 'F:\Cursor1.cur');
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2011, 16:33
Привет! Вот еще темы с решениями:

Вид курсора и поиск
1. при ожидание поиска в базе изменился вид курсора 2. при поиске в базе...

Как изменить вид курсора
Как можно изменить вид указателя формы в зависимости от его положения на форме:...

Изменить вид курсора (С++ Builder 10.1)
Как изменить вид курсора (например на молоток) с++. Вместо курсора, другое...

Вид или состояние курсора
Как узнать статус курсора мыши? Или какой курсор в данный момент используется. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru