1,221
社区成员
发帖
与我相关
我的任务
分享请问：我如何可以在控件的边框上（四边）画上一个红色的框框？比如说在TPanel或TEdit上！
请问：我如何可以在控件的边框上（四边）画上一个红色的框框？比如说在TPanel或TEdit上！同时又如何去掉？谢谢！
请写段代码来学习学习！谢谢！：）
请写段代码来学习学习！谢谢！：）
...全文
请发表友善的回复…
发表回复
Sammo 2003-03-09
- 打赏
- 举报
谢谢！结贴！：）
牧牛人软件 2003-03-09
- 打赏
- 举报
Canvas->Rectangle(x1,y1,x2,y2);
以上对角线坐标(x1,y1),(x2,y2)你可调整，比如：
(Panel->Left-1, Panel->Top-1, Panel->Left+Panel->Width+1, Panel->Top+Panel->Height+1);
其他的方法：
Canvas->MoveTo(x,y);
Canvas->LineTo(x,y);
以上对角线坐标(x1,y1),(x2,y2)你可调整，比如：
(Panel->Left-1, Panel->Top-1, Panel->Left+Panel->Width+1, Panel->Top+Panel->Height+1);
其他的方法：
Canvas->MoveTo(x,y);
Canvas->LineTo(x,y);
牧牛人软件 2003-03-09
- 打赏
- 举报
红色:
Form->Canvas->Pen->Color=clRed;
Form->Canvas->Rectangle(Panel->Left, Panel->Top, Panel->Left+Panel->Width, Panel->Top+Panel->Height);
去掉:
Form->Canvas->Pen->Color=Form->Color;
Form->Canvas->Rectangle(Panel->Left, Panel->Top, Panel->Left+Panel->Width, Panel->Top+Panel->Height);
