如何在panel上把已知的两点通过一条线连起来 也就是在两点间画一条线出来 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure DrawLinOnPannel(xLeft,yLeft,xRight,yRight: Integer);var dc: HDC; oldPoint: TPoint;begin dc := GetDC(Panel1.Handle); //获取pannel的dc MoveToEx(dc,xLeft,yLeft,@oldPoint);//先移动到起点 LineTo(dc,xRight,yRight); //画线 ReleaseDC(Panel1.Handle,dc); //释放dcend; 关于文件流的问题 修改TForm的Caption问题 在表單Form還沒顯示出來時取消? 怎么使FastReport直接打印(在线等) 如何把剪粘板的内容导出,导入(我不知道剪粘板里存储的数据类型) 新手请教 下列语句运行时为何不报错(intraweb) 关于安装程序的制作的问题! ==如何结束程序?=== 初学者提问3 一个SQL的排序问题 如何在panel上把已知的两点通过一条线连起来 在线紧急求助:如何使用dblistbox
var
dc: HDC;
oldPoint: TPoint;
begin dc := GetDC(Panel1.Handle); //获取pannel的dc
MoveToEx(dc,xLeft,yLeft,@oldPoint);//先移动到起点
LineTo(dc,xRight,yRight); //画线
ReleaseDC(Panel1.Handle,dc); //释放dcend;