Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TChart

Автор: Delphist 26.11.2004, 19:22

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

Автор: Satana 26.11.2004, 21:20

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

Код


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

Автор: Zero 27.11.2004, 10:35

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

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

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