点的时候你可以在image1.canvas.上画图
image1.canvas.Ellipse...清除按钮中写入Image1.Invalidate;即可
image1.canvas.Ellipse...清除按钮中写入Image1.Invalidate;即可
解决方案 »
- 根据数据生成图片
- 关于shift + 方向键的代码(由于我只有34分了,我只能给10分)
- 在线等——所有的80分都给了!TLMPack多语言包0.14的问题?
- 你知道吗?+关于隐藏窗口+马上给分!
- 请高手帮忙,delphi 读取word 文档
- 我想做一个类似Google的IE工具条,有做过的吗?帮帮忙
- 请教一下:如何在系统图标区(托盘区)显示文字,就如时间显示一样?正准备做个东东。
- 如何输出16进制的数据,用什么类型的变量
- 在哪里能找到directsound.dcu(.pas)
- Delphi如何将数字和加号一起显示在编辑框上。
- 怎样在dbgrid中只显示查询的内容?
- Delphi写的VCL可不可以在C++Builder中使用?
加入两个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;
cg1120(代码最优化-§雨后看见彩虹……§) ,请问那个例子叫什么名字?在哪儿?
有参数adodataset1:ADODATASET;
adodataset1img1:TBlobField;//存储图象的字段,Access中的ole对象
image1:TImage;//位图
请问如何将其加入到 数据库中的img1字段啊,然后又如何读出到image1中啊
急等