目前我只在过程里随便加了几条画线代码,测试时无法通过!画线过程如下:
procedure draw(canvas:Tcanvas);
begin
Canvas.pen.color:=clwhite;
canvas.MoveTo(100,100);
canvas.lineto(200,100);
end;窗体oncreate事件:
procedure TForm1.FormCreate(Sender: TObject);
begin
draw(canvas);
end;
procedure draw(canvas:Tcanvas);
begin
Canvas.pen.color:=clwhite;
canvas.MoveTo(100,100);
canvas.lineto(200,100);
end;窗体oncreate事件:
procedure TForm1.FormCreate(Sender: TObject);
begin
draw(canvas);
end;
解决方案 »
- 多线程程序不能断点调试?运行之后不会触发
- Type mismatch for field 'CurrentNO1', expecting: Integer actual: String.解决办法?
- 使用json-rpc实现delphi+java异构语言RPC调用
- delphi中资金管理的问题
- Delphi 8.0好难装呀。有谁已经装上,讲一下怎么注册吧。
- missing SQl property问题
- 如何得到日期的差???在线等待!!!!
- 有没有不管文件夹为空与否,都将这个文件夹删除掉的办法
- 人生,我很迷茫!
- 请教一个很菜的问题??
- 高分请教 , 当鼠标在StringGrid 的网格上停留一会时 ,显示提示, 当鼠标移动或按键时消失
- 命名空间(菜鸟莫看!!!!)
begin
draw(canvas);
end;
试下