Tchar и колесико

← →
SHerloK (2012-05-29 08:58) [0]

Проблема заключается в том что я не могу отключить прокрутку графика колесиком. Хочу повесить на MousewheelDown/mouse wheelup свой код но он не срабатывает а вместо этого происходит перемещение графика вверх вниз. Ткните носом где ошибся.

← →
sniknik © (2012-05-29 09:23) [1]

где где, в 17й строке вестимо.

← →
SHerloK (2012-05-29 09:47) [2]

Borderstyle?? а как это влияет на прокрутку?да и не помогает изменение

← →
DVM © (2012-05-29 10:01) [3]

> Borderstyle?? а как это влияет на прокрутку?

ты где отсчитывал 17 строку? В инспекторе объектов что ли? :)

← →
SHerloK (2012-05-29 12:52) [4]

а где??

← →
Dimka Maslov © (2012-05-29 13:20) [5]

Сообщения от колёсика мыши получает только объект, имеющий фокус ввода (тот, который получает ввод от клавиатуры). Чтобы сообщения от колеса передавать в несфокусированный объект, надо перехватывать их на уровне формы, прекращать их обработку, а затем посылать в нужный объект.

← →
SHerloK (2012-05-29 15:04) [6]

> Dimka Maslov © (29.05.12 13:20) [5]
> Сообщения от колёсика мыши получает только объект, имеющий
> фокус ввода (тот, который получает ввод от клавиатуры).
> Чтобы сообщения от колеса передавать в несфокусированный
> объект, надо перехватывать их на уровне формы, прекращать
> их обработку, а затем посылать в нужный объект.

фокус принудительно передается chart"у

← →
SHerloK (2012-05-29 15:16) [7]

да у меня код на chart1.mousewheeldown/up нет срабатывается просто, вместо этого график двигается вверх вниз. Я не знаю какое свойсвто за это отвечает в гугле тоже вродже никто не сталкивался с этим.

← →
AV © (2012-05-29 15:22) [8]

http://www.podgoretsky.com/ddp/idioms.aspx

если так, работает?

procedure TForm1.btn2Click(Sender: TObject);
begin
Chart1.SetFocus;
Exit;

procedure TForm1.Chart1MouseWheel(Sender: TObject; Shift: TShiftState;
begin
Caption := Caption + "ChartMouseWheel";

← →
SHerloK (2012-05-29 15:29) [9]

> если так, работает?

работает , в заголовке появляется , но график так и двигается. И у меня в коде вообще нигде нет работы с колесиком могу вообще весь исходник скинуть если надо, скажите куда.

← →
SHerloK (2012-05-29 15:35) [10]

Вообще код выполняется в chart1.mousewheeldown/up но при этом еще и график двигается вверх вниз как будто его прокручивают. allowpanning=pmNone

блин, никак не пойму, как он прокручивается, куда?..
какие настройки Chart?

dfm, аля
object Chart1: TChart
Left = 80
Top = 8
Width = 473
Height = 329
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
"TChart")
View3D = False
TabOrder = 0
OnMouseWheel = Chart1MouseWheel
object fstlnsrsSeries1: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
LinePen.Color = clRed
XValues.DateTime = False
XValues.Name = "X"
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = "Y"
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
end

аа.. понял
procedure TForm1.Chart1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Caption := "Chart1MouseWheel " + FormatDateTime("hh-mm-ss",now);
Handled := True;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
i: Integer;
begin
Chart1.SetFocus;
for i := 0 to 100 do
begin
fstlnsrsSeries1.Add(Random(i));
end;

end;

← →
SHerloK (2012-05-29 17:40) [13]

> Handled := True;

Спасибище огромное, и кстати в mousewheeldown/up это почему то не работает. Но все равно огромное спасибо.

> и кстати в mousewheeldown/up это почему то не работает.

Если бы "это" работало в mousewheeldown/up можно было бы сделать ужасного для пользователя монстра. Вверх крутишь - прокручивается, вниз крутишь - песенки поёт. :)

← →
Кщд (2012-05-30 17:38) [15]

> sniknik © (29.05.12 09:23) [1]
> где где, в 17й строке вестимо.
>
> SHerloK (29.05.12 09:47) [2]
> Borderstyle?? а как это влияет на прокрутку?да и не помогает
> изменение
>
> DVM © (29.05.12 10:01) [3]
>
> ты где отсчитывал 17 строку? В инспекторе объектов что ли?
> :)
> SHerloK (29.05.12 12:52) [4]
> а где??

это орех))
почему копилка не пополняется?

Tchar и колесико Найти похожие ветки