我想动态创建组件并可以删除掉它，但...

[roger]

各位大虾，我想在run-time时创建不同的组件并可以用backspace键删掉它，我使用了类引用和对象方法指针，程序大概如下，但创建的组件的OnkeyPress不能响应键盘，不知为什么？请大家指教。
type
TControlClass=class of TControl;
type
TForm1 = class(TForm)
........
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
ClassRef:TControlClass;
Counter:Integer;
ToDestroy:TControl;
........
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
MyName:String;
begin
if ClassRef<>nil then
if (Button=mbLeft) then
with ClassRef.Create(self) do//ClassRef可能是多种组件
begin
Visible:=False;
Parent:=self;
........
OnKeyPress:=GetKeyPress;//这句好象不起作用，不知为什么？
SetFocus;
Form1.Caption:=Format('Count Object:%d Components',[Counter]);
end;
end;
end;

[roger]

Lionhear,我试过你的建议了，还是不行。

[Wingsun]

你创建的组建可见吗？如果不可见自然不能接收到消息了，也就不能像你想的一样了。

[jll]

组件不可见（Visible:=False;），你怎么让它或得焦点呢？
另外，GetKeyPress是什么？对象方法？

[Lionheart]

你要设置TFORM1的KEYPREVIEW为TRUE。

[Lionheart]

将TFORM1的KEYPREVIEW设为TRUE。

[Lionheart]

设置FORM1的KEYPREVIEW为TRUE

[王集鹄]

看不见的组件当然不能截获自己的OnKeyPreview事件!
///////////
const
cMyKey = $111111;
....
with ClassRef.Create(self) do//ClassRef可能是多种组件
begin
...
Tag := cMyKey; //如果你的组件有Tag
...
end;
//////////
然后在form的OnKeyPreview事件中写
var
I: Integer;
begin
for I := 0 to Pred(ComponentCount) do
if Components[I].Tag = cMyKey then begin
Components[I].Free;
end;
end;

[roger]

谢谢各位的帮助，我想说明几点：1，创建的组件是可见的，visable:=true这句再帖子中给省略了，2，我发现定义的OnKeyPress事件实际上给了Form1，因为我的ClassRef的基类是TControl,它没有OnkeyPress这个事件，但我将ClassRef的基类换为TWinControl时，OnKeyPress事件还是给定义到Form1上，虽然TWinControl有OnKeyPress事件，但当我这样写：
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
NewCtrl:TWinControl;
MyName:String;
begin
if ClassRef<>nil then
if (Button=mbLeft) then
NewCtrl:=ClassRef.Create(self);
with NewCtrl do//ClassRef可能是多种组件
begin
Visible:=False;
Parent:=self;
........
Visable:=True;
NewCtrl.OnKeyPress:=GetKeyPress;//这句Delphi报错，[Error] Classref2.pas(84): Undeclared identifier: 'OnKeyPress'。
SetFocus;
Form1.Caption:=Format('Count Object:%d Components',[Counter]);
end;
end;
如果不加NewCtrl前缀，OnkeyPress又给定义到Form1上去了，真是不知怎么办。

[Lionheart]

Set TFrom1.KeyPreview to true, and write the onKeyDown event of the TForm1.

[roger]

哈哈，各位，我自己已经解决了这个问题，那就是判断类引用生成的实例的类型，类型转换后，赋对象方法指针。程序大概如下：
if NewCtrl is TRadioButton then
(NewCtrl as TRadioButton).OnKeyPress:=GetKeyPress
else
if NewCtrl is TButton then
(NewCtrl as TButton).OnKeyPress:=GetKeyPress
else
if NewCtrl is TEdit then
(NewCtrl as TEdit).OnKeyPress:=GetKeyPress;
SetFocus;