Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Вниз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
← →
AV © (2012-05-29 15:50) [11]блин, никак не пойму, как он прокручивается, куда?..
какие настройки 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
← →
AV © (2012-05-29 16:04) [12]аа.. понял
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 это почему то не работает. Но все равно огромное спасибо.
← →
Германн © (2012-05-30 01:00) [14]
> и кстати в 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]
> а где??
это орех))
почему копилка не пополняется?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.104 c