RT 我想要的效果是 通过在窗体上点击鼠标 创建焦点所在RadioButton指示的控件。
 也就是这个样子。

我写了个程序 打包如下 热心人帮看看。
顺便发下工程文件和源文件。
CRefRorm.pas

unit CRefForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  // Class reference type (redeclaration)
  TControlClass = class of TControl;

  TCRefForm1 = class(TForm)
    Panel1: TPanel;
    RbtnRadio: TRadioButton;
    RbtnButton: TRadioButton;
    RbtnEdit: TRadioButton;
    procedure RbtnEditClick(Sender: TObject);
    procedure RbtnButtonClick(Sender: TObject);
    procedure RbtnRadioClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    ClassRef: TControlClass;
    Counter: Integer;
  public
    { Public declarations }
  end;

var
  CRefForm1: TCRefForm1;

implementation

{$R *.dfm}

procedure TCRefForm1.RbtnButtonClick(Sender: TObject);
begin
  ClassRef := TButton;
end;

procedure TCRefForm1.RbtnEditClick(Sender: TObject);
begin
  ClassRef := TEdit;
end;

procedure TCRefForm1.RbtnRadioClick(Sender: TObject);
begin
  ClassRef := TRadioButton;
end;

procedure TCRefForm1.FormCreate(Sender: TObject);
begin
  ClassRef := TRadioButton;
end;

procedure TCRefForm1.FormMouseDown(
  Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  NewCtrl: TControl;
  CtrlName: string;
begin
  // Create the Control
  NewCtrl := ClassRef.Create(Self);
  // hide it temporarily, to avoid flickering
  NewCtrl.Visible := False;
  // set parent and position
  NewCtrl.Parent := Self;
  NewCtrl.Left := X;
  NewCtrl.Top := Y;
  // compute the unique name (and caption)
  Inc(Counter);
  CtrlName := ClassRef.ClassName + IntToStr(Counter);
  Delete (CtrlName, 1, 1);
  NewCtrl.Name := CtrlName;
  NewCtrl.Visible := True;
end;

end.

ClassReference.bdsproj

program ClassReference;

uses
  Forms,
  CRefForm in 'CRefForm.pas' {CRefForm1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TCRefForm1, CRefForm1);
  Application.Run;
end.

检查了多次 那里有问题 为什么我点击鼠标没反应？


百分求解。。。

pascal呀 以前学过 早忘了 切点分

信箱大帅哥 帮看下啊
搞这么久WIN32编程 这个对于你没什么难度啦
可是我刚搞 师傅叫我自学 他急着赶项目不好打扰他啊
再说这个东西我检查多次应该没写错代码啊 奇怪的东东。。。

貌似没啥问题啊

procedure TCRefForm1.FormMouseDown(
  Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  NewCtrl: TControl;
  CtrlName: string;
begin
  //showmessage('ok');   //你加一句这个试试  如果能获得控制权  再注释或删除之
  // Create the Control
  NewCtrl := ClassRef.Create(Self);
  // hide it temporarily, to avoid flickering
  NewCtrl.Visible := False;
  // set parent and position
  NewCtrl.Parent := Self;
  NewCtrl.Left := X;
  NewCtrl.Top := Y;
  // compute the unique name (and caption)
  Inc(Counter);
  CtrlName := ClassRef.ClassName + IntToStr(Counter);
  Delete (CtrlName, 1, 1);
  NewCtrl.Name := CtrlName;
  NewCtrl.Visible := True;
end;

谢谢W版帮忙
我加了 不过运行后没反应 没有OK的消息框出来。。
我想了下 有几个问题想弄明白。
在我制作这个东西时有的步骤可能有问题：
我是先添加Tpanel控件的 但是当时不知道这个东西有什么用
在后面添加TRadioButton控件时 就没放到它上面 后来才移动到它上面的 这样会有问题么？

还有就是那个FormCreate（）函数 我是自己写的 也就是说没有在Form窗体上双击 这样是不是会让自己写的函数无效？


[ 本帖最后由 有容就大 于 2012-12-19 11:31 编辑 ]

再补充下 我那个FormMouseDown(）函数也是自己写的 没有在窗体的event里双击选择OnMouseDown来进行自动编码
是不是就是这个问题？
为什么DELPHI大部分东西都能自动生成 和以前的大不同啊

那2006和7还不一样

我一个字都没动你的代码 啊  

我想应该是先点击一个控件的EVENT事件自动生成函数 然后再添加代码才行
我这个BDS2006有900多M 不知道怎么传啊。。。

有容对c++里的类 是不是熟悉啊

delphi把面向对象发挥的非常出色

所以最好事件函数别自己写