用dbchart怎样画一条竖直的虚线?
解决方案 »
- delphi中用DBChart绘图
- EtherCAT的例程需要找Delphi的高手指点
- 请大侠帮忙解决一个ACCESS问题
- 菜鸟求救
- ★★★★★一个有点难度和技巧的问题:如何产生在编辑过程中的弹出式输入加速列表框,有点类似Delphi的微帮助★★★★★
- 我用fastreport做报表,如何对数据表中的一列求总和显示?
- 求救一个以业务流程为主的使用手册模板
- 怎样实现当选中一个form中的combobox时,下回远行程序时该form不显示
- 请问如何释放资源
- ..\应该是表示当前目录,但是把同样好使的程序(程序中用到了..\)拷到另外一个目录下却不好使了呢?
- 参数配置没错提示:too many actual parameters错误
- Delphi基础Move、Shr、Shl等,帮忙解答这段代码的意思
代码:
procedure TForm1.Button1Click(Sender: TObject);
var i,y:integer;
begin
y:=150;
for i:=0 to 8 do
begin
Canvas.MoveTo(200,y);
y:=y+20;
Canvas.LineTo(200,y);
y:=y+20;
end;
end;
循环我直接设置的,这个是你考虑的事情。