Panel怎么在上面画图象(Canvas画布)

Question

分多少都可以!只要问题解决!就可以!着急 着急 着急!在线等待!

Answer 1

//-----------------------------------
type
  TNewPanel = class(TPanel)
    procedure paint;override;
  end;
//-----------------------------------
procedure TNewPanel.paint;
begin
  //可以加过程
end;
//-----------------------------------
var
  NewPanel : TNewPanel;
begin
  NewPanel :=TNewPanel.Create(self);
  NewPanel.Parent := self;
//-----------------------------------
  NewPanel.Canvas.TextOut(1,1,'D_Q(A.Dai)');
//-----------------------------------
//-----------------搞定了!可以画东西了!