怎么在FORM里面画一条横线,好像IE上面的那几条一样? 怎么在FORM里面画一条横线,好像IE上面的那几条一样 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用TBevel,高度为1,长度任意定! procedure TForm1.Button1Click(Sender: TObject);begin with Canvas do begin Pen.Color := clBlack; MoveTo(10, 10); LineTo(ClientWidth-10, 10); end;end; 如果单纯实现画线,也可以用画布来实现form1.Canvas.MoveTo(10,10); //确定起点 (10,10)form1.Canvas.LineTo(210,10); //从起点开始画线到终点(210,10) 不用画的,只是在coolbar上放置toolbar就可以的。 同意楼上的估计楼主没有搞清那是什么东西~~~放上toolbar 就有线了:) Delphi 加密与.net 加密如何互解? image 显示为图闪动问题 主程序 exe 与子程序 exe 之间的关闭问题 WSAEventSelect模型的大讨论 品牌机的bios开机画面让我看不到启动信息,怎么办? 可用分全部散去。决定戒网3个月,安心坐我得程序。 通过socket来发送文件的疑问。 如何通过程序,把*.doc文档转换成*.htm文件 急!!! 在线 高分求助 delphi指针赋值问题 kyilx的webservice做apache应用服务器,客户端为delphi采用soapconection连接。 紧急Sos
begin
with Canvas do
begin
Pen.Color := clBlack;
MoveTo(10, 10);
LineTo(ClientWidth-10, 10);
end;end;
form1.Canvas.MoveTo(10,10); //确定起点 (10,10)
form1.Canvas.LineTo(210,10); //从起点开始画线到终点(210,10)
估计楼主没有搞清那是什么东西~~~放上toolbar 就有线了:)