Delphi类引用示例

1、打开Delphi7集成开发环境，在默认工程的Form1窗体上，一个RadioGroup控件。

3、F9运行程序，可以看到程序的RadioGroup多了三个RadioButton项

5、在Form1的Object Inspector中对Form1的OnMouseDown事件方法进行编写，代码如下：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var NewCtrl: TControl;begin NewCtrl := CtlClassRef.Create(Self); NewCtrl.Name := CtlClassRef.ClassName + IntToStr(Self.ControlCount); NewCtrl.Parent := Self; NewCtrl.Left := X; NewCtrl.Top := Y;end;创建CtlClassRef引用的控件。