摘要： procedure TForm1.FormPaint(Sender: TObject); const x1 = 10; //left y1 = 10; //top x2 = 200; //right y2 = 200; //bottom x3 = x2; y3 = y1+(y2-y1) div 2; 阅读全文