怎样为Shape 添加 Handle ,因此我想切割三角形并且绘制成按钮形式(做七巧板用) , 但切割需要Handle ,还有做成按钮形式,有浮起的效果, 请
我尝试过很多种办法,用Panel切割,但在Panel用Canvas.LineTo绘制线条并 移动 时线条会自动消失,我也试过用TGraphicControl新建组件绘制图形,但没有Handle ,不能切割,请高指点指点
[109 byte] By [
zzx110] at [2008-1-9]
自己写一个组件。随便从一个现成的组件继承下来,如TCustomPanel. 然后自己加上一个Canvas.
就可以了。想怎么画就怎么画。
TMyShape = class(TCustomPanel)
private
.....
FCanvas: TCanvas;
.....
protected
public
.....
property Canvas: TCanvas read FCanvas;
.....
published
...
end;
constructor TMyShape.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCanvas := TCanvas.Create;
end;