| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/7/25 23:00:42 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我想在LABLE上画一直线并显示出来，但是LABLE是已设成透明的，怎么出处理，请高手回答我，谢谢了 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/7/26 1:00:56 | ||||
| 1楼： | 照样画呗 透不透明没有影响 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/7/26 12:50:34 | ||||
| 2楼： | 画了看不到呢，怎么办，如我在FORM上画可以看到，但在FORM上加了一个LABEL后就看不到了，我用的是 procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin label1.Canvas.MoveTo (x,y); end; procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin label1.Canvas.lineto(x,y); end; 帮看看，错在那呢，谢谢大家 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/7/26 14:27:23 | ||||
| 3楼： | 使用不当,呵呵 你要研究下MouseDown了,呵呵 var Pt: TPoint; procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Pt := Point(X, Y); end; procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Label1.Canvas.MoveTo(Pt.X, Pt.Y); Label1.Canvas.LineTo(X, Y); end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/7/26 20:19:47 | ||||
| 4楼： | 还是不行呢，照你的说法还是不行，怎么回事呢？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/7/27 0:17:22 | ||||
| 5楼： | 不会哦 我这里没有问题 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/7/27 8:57:32 | ||||
| 6楼： | Label的autosize属性是否未改为False？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/7/27 12:55:51 | ||||
| 7楼： | 谢谢AMY_LAN 做出了，非常感谢 对了，我要画一条垂直线怎么画呢，请告诉我 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/7/27 15:38:42 | ||||
| 8楼： | 垂直线只是Y轴位置不同而已 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/7/27 16:07:21 | ||||
| 9楼： | 对啊，LINETO(X,Y)中的Y用什么数好 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
