添加事件 procedure TForm4.BitBtn1Click(Sender: TObject); begin try if ColorDialog1.Execute then Shape1.Brush.Color:=ColorDialog1.Color; except ShowMessage('颜色对话框显示失败.'); end; end; procedure TForm4.Button1Click(Sender: TObject); begin Shape1.Shape:=stRectangle; end; procedure TForm4.Button2Click(Sender: TObject); begin Shape1.Shape:=stRoundRect; end; procedure TForm4.Button3Click(Sender: TObject); begin Shape1.Shape:=stEllipse; end; end.