求助:请各位大侠帮帮忙,我解决不了了!急,在线等待! 我在用tchart画图时,虽然设置了坐标的最大最小值,但是运行时,若点击图,这时如果滚动鼠标,图则会出现滚动现象,本来我得坐标为0~130,结果一不小心竟然滚动到了好几千了,还可以继续滚。怎样设置不让他响应鼠标的滚动呀!但是我需要保留鼠标拖动放大的功能。各位帮帮忙! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 初始化图为chart1.AllowZoom := false;procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin chart1.AllowZoom := false;end;procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin chart1.AllowZoom := true;end; to miaofeng800108(自由人) : 多谢了。问题已经解决了,非常感谢。以后还希望能够多多提供帮助。 memo 如何定位? 求助: image 保存成gif 文件时候变色 tquery之params应用:参数位置一变就出错? 在Delphi 7中如何使用TidHttp来达到Cached的目的 有没有哪个时间函数的返回值是精确到毫秒的 散分,人人有份!~ 那位大侠能帮我解决这个串口通讯问题。 请问如何将DPR文件默认直接保存在指定文件夹 一个delphi中调用存储过程的问题? 如何让dbgrid固定不会移动的几列 急!!!我很迷惑,希望对数据库和通讯有经验的高手来畅谈一下 急寻邮件群发的原代码
chart1.AllowZoom := false;procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
chart1.AllowZoom := false;
end;procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
chart1.AllowZoom := true;
end;
多谢了。问题已经解决了,非常感谢。以后还希望能够多多提供帮助。