我想实现程序的 image 加载一个图片,然后鼠标像股票软件那种跟随十字线效果,请问如何实现呢?有人能帮帮我吗?
解决方案 »
- 关于delphi如何调用com组件的数组结果
- 如何传递应用程序的返回值
- 用SQL做时间比较,急急
- 为什么不能实现隔行改变dbgrid颜色?
- 请问大家开发数据库管理系统一般是采用2层c/s, 还是3层c/s构架?
- 请问高手,怎样实现在变化DBGRID中的每行时触发一个事件?
- quickreport欲缆时,当其内容未全部打开时(如打开50%)点按CLOSE,一次或多次后整个PROGRAM 崩溃!!!
- 那位有用delphi开发的进销存管理系统的源代码借我参考一下。高分酬谢!!!
- F1book6的两个问题!
- 请帮个忙吧!!
- delphi ado 2000条数据批量插入mysql中,需要1分钟,如何提高速度?
- delphi如何设置按ctrl+鼠标左键移动窗体 新建窗体
moveto
lineto
X, Y: Integer); Procedure DrawCross(AX, AY: Integer);
begin
With PaintBoxC.Canvas do
begin
Pen.Color := CrossColor;
Pen.Style := CrossStyle;
Pen.Mode := pmXor;
Pen.Width := 1;
MoveTo(AX, 0);
LineTo(AX, PaintBoxC.Height);
MoveTo(0, AY);
LineTo(PaintBoxC.Width, AY);
TextOut(5,5,'('+IntTostr(AX)+','+IntTostr(AY)+')');
end;
end;Var
tmpX, tmpY: Double;
begin
if (OldX <> -1) then
begin
DrawCross(OldX, OldY); { draw old crosshair }
OldX := -1;
end;
//PaintBoxC.Canvas.
{ check if mouse is inside Chart rectangle }
if PtInRect(Rect(0, 0, PaintBoxC.Width, PaintBoxC.Height), Point(X, Y)) then
begin
DrawCross(X, Y); { draw crosshair at current position }
{ store old position }
OldX := X;
OldY := Y;
end;