VPF::TChart - Форум программистов

Delphist

Дата 26.11.2004, 19:22 (ссылка)

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

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

С помощью правой кнопки мыщи можно двигать график. Как сделать, чтобы при этом менялся вид курсора на вид руки? Что - то в свойствах я такого не нашел.

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Satana

Дата 26.11.2004, 21:20 (ссылка)

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

Загрузка ...

Опытный

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

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

можно сделать так:

Код


var
  Form1: TForm1;
  btn:TmouseButton;
implementation

{$R *.dfm}

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
btn:=Button;
end;

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if btn=mbRight then Chart1.Cursor:=crHandPoint;
end;

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

ЗЫ может есть и более простое и красивое решение но это первое что пришло в голову после трудового дня smile

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

Zero

Дата 27.11.2004, 10:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Цитата(Delphist @ 26.11.2004, 19:22)

Как сделать, чтобы при этом менялся вид курсора на вид руки? Что - то в свойствах я такого не нашел.

Как так ненашол, я только что сам посмотрел на компоненте Chart (из вкладки Additional) есть сво-во Cursor, установи его в crHandPoint, и будет тебе рука.

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