在图象上面标注的问题（急，在线等，100分）

Question

点的时候你可以在image1.canvas.上画图
image1.canvas.Ellipse...清除按钮中写入Image1.Invalidate;即可

Answer 1

看看DELPHI里有一个绘图的例子

Answer 2

一是在在前面的屏幕上画图，还有一个简单的实现方法：
加入两个Image，Image1载入位图一张位图，Image2放在Image1的上面，和Image1同样大小并设置其Transparent属性为true,然后编写Image2的MouseDown事件代码。procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  image2.Canvas.Pen.Color := clRed;
  image2.canvas.Ellipse(X, Y ,X+5, Y+5);
end;
清除标记代码
procedure TForm1.Button1Click(Sender: TObject);
begin
image2.Picture := nil;
end;

Answer 3

netlib(河外孤星) 能说的再详细点吗？
cg1120(代码最优化－§雨后看见彩虹……§) ，请问那个例子叫什么名字？在哪儿？

Answer 4

sunwk(心静自然凉) 的方法有用啊，^^

Answer 5

还有就是做了标注后如何保存到数据库啊
有参数adodataset1:ADODATASET;
adodataset1img1:TBlobField;//存储图象的字段，Access中的ole对象
image1:TImage;//位图
请问如何将其加入到 数据库中的img1字段啊，然后又如何读出到image1中啊
急等

Answer 6

两张图，就不能删除一个点了，也不能存成一个字段？TField.LoadFromFile(bmpFileName);