帮我看看这段代码怎么写才对！

[zsjzwj]

unit EditEH;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
TStyleArray =(saFloat, saInt, saIP, saStr);
TEditEH = class(TEdit)
private
{ Private declarations }
FStyle : TStyleArray;
procedure SetText(const value: TStyleArray);
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
protected
{ Protected declarations }

public
{ Public declarations }
published
{ Published declarations }
property Style : TStyleArray read FStyle write SetText;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('MyVcl', [TEditEH]);
end;

procedure TEditEH.SetText(const value: TStyleArray);
begin
if FStyle = value then exit
else FStyle := value;
Invalidate;
end;

procedure TEditEH.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
if FStyle=saInt then
begin
if not(key in [48..57,8]) then
begin
key := 0;
end;
end
else if FStyle=saFloat then
begin
if not(key in [46,48..57,8]) then
begin
key := 0;
end;
end
else if FStyle=saIP then
begin

end;
end;

end.

[crapex]

是哪个地方不对？

[耙子]

起码说说想达到什么目的，现在什么问题，
没头没脑的一段代码谁愿意给你看呀！

[zhoutian618]

没有理解楼主的意思？
编译通不过？
代码没有实现你的功能？

[zsjzwj]

我想做一个可以控制输入的编辑框，
有（int，float，IP和string）这些类型选择，

但是现在只做了键盘输入控制，

编译通过了，却什么也控制不了！why？

[aiirii]

procedure TEditEH.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift); 你都調用了默認的處理了, 下面的就沒什麼作用了, 這句要用在最後

[zsjzwj]

回复人： aiirii(ari) ( ) 信誉：105

我把inherited keydown（key，shift）；放在最后也不行呀！

[zsjzwj]

自己顶

[jiju]

重载keydown 改为重载KeyPress

[zsjzwj]

to jiju(UNCC) ：

重载了keypress连编译都不能通过了呀！

[jacky22]

不要继承方法，应可以，直接重载

[jiju]

不可能吧，procedure KeyPress(var Key: Char); override;

[zsjzwj]

to jiju(UNCC)

问题解决，谢了！分都是你的