如何给由四边形上色,注意不一定是矩形,矩形只是四边形的一种 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //参考如下代码procedure TForm1.Button1Click(Sender: TObject);begin Canvas.Brush.Color := clRed; Canvas.Polygon([Point(0, 0), Point(10, 100), Point(100, 90), Point(50, 30)]);end;procedure TForm1.Button2Click(Sender: TObject);begin Canvas.Brush.Style := bsClear; Canvas.Polygon([Point(0, 0), Point(10, 100), Point(100, 90), Point(50, 30)]); Canvas.Brush.Color := clBlue; Canvas.FloodFill(2, 2, clNone, fsBorder);end; 多线程中的事件,急 有关记事本的问题 我用ado控件连接数据库,在winxp下运行报错,吐血! 这个代码帮忙看! 谁能解决这个问题?(100分) 如何判断鼠标是否在窗口范围内? Delphi6中文版 ClientDataSet中怎样使一个字符型的字段按数字型排序,多谢。 有一执行操作要求在后台运行,前面有一个窗口提示正在进行操作而不允许主窗口程序进行别的操作 如何退出双重循环 请大家帮忙(在线等) 在哪可以下載txDBGrid控件,我在網上找了,可人家說的那些網址都打不開
procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Brush.Color := clRed;
Canvas.Polygon([Point(0, 0), Point(10, 100), Point(100, 90), Point(50, 30)]);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Canvas.Brush.Style := bsClear;
Canvas.Polygon([Point(0, 0), Point(10, 100), Point(100, 90), Point(50, 30)]);
Canvas.Brush.Color := clBlue;
Canvas.FloodFill(2, 2, clNone, fsBorder);
end;