//声明:
Chord(
  DC: HDC;                                {设备环境句柄}
  X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点}
): BOOL;


//举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 10; y1 = 10; x2 = 200; y2 = 200; x3 = 130; y3 = 200; x4 = 160; y4 = 10; begin Canvas.TextOut(x1,y1, '1'); Canvas.TextOut(x2,y2, '2'); Canvas.TextOut(x3,y3, '3'); Canvas.TextOut(x4,y4, '4'); Chord(Canvas.Handle, x1,y1, x2,y2, x3,y3, x4,y4); end;
//效果图:

posted on 2008-02-09 17:59  万一  阅读(1870)  评论(0编辑  收藏  举报