Delphi 建立一个到处可用的绘图组件

admin

建立一个自定义控件，该控件在paint事件中绘制一个图形：

1. unit CustomShapeControl;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   System.Classes, Vcl.Controls, Vcl.Graphics;
   
7. 
   
8. type
   
9.   TCustomShapeControl = class(TGraphicControl)
   
10.   protected
    
11.     procedure Paint; override;
    
12.   end;
    
13. 
    
14. implementation
    
15. 
    
16. procedure TCustomShapeControl.Paint;
    
17. var
    
18.   Rect: TRect;
    
19. begin
    
20.   Rect := ClientRect; // 获取控件的工作区域
    
21.   Canvas.Brush.Color := clBlue; // 设置填充颜色为蓝色
    
22.   Canvas.FillRect(Rect); // 使用当前画笔填充矩形
    
23.   Canvas.Ellipse(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom); // 绘制圆形
    
24. end;
    
25. 
    
26. end.

复制代码

1. uses
   
2.   CustomShapeControl;
   
3. 
   
4. procedure TForm1.FormCreate(Sender: TObject);
   
5. var
   
6.   CustomControl: TCustomShapeControl;
   
7. begin
   
8.   CustomControl := TCustomShapeControl.Create(Self);
   
9.   CustomControl.Parent := Self;
   
10.   CustomControl.SetBounds(10, 10, 100, 100); // 设置控件的位置和大小
    
11. end;

复制代码