请问一下Delphi如何继承窗口上的某一个输入框来用?

[gnhao]

我有20个输入框.它们的要求都是只能输入0-9的数字.我不可能每个输入框都写一个判断吧?我想问一下咋搞
建立一个.其它的从这个继承要咋搞?

[hongqi162]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MyKeyPress(Sender: TObject; var Key: Char);//将edit指定到同一个OnKeyPress事件
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyKeyPress(Sender: TObject; var Key: Char);
begin
  showmessage('fdsafdsa');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
self.Edit1.OnKeyPress:= MyKeyPress;
self.Edit2.OnKeyPress:= MyKeyPress
end;

end.

[gnhao]

哦.谢谢楼上.消息处理.我还以为可以用一个edit类.像VC那样.
我在帮朋友搞个小工具.想直接硬来.偶连delphi基本语法都没学过.和和.如果能做出来我就好好学学

[bdmh]

写一个统一的方法,所有的Edit都去链接这个方法

[minizhuxianchun]

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=0 to Self.ControlCount-1 do //如果TEdit控件包含在PANEL上则:for i:=0 to Self.Panel1.ControlCount-1 do
if Self.Controls[i] is TEdit then
(Self.Controls[i] as TEdit).OnKeyPress:=MyKeyPress;
end;

[wintergoes]

可以自己继承一个edit

[haitao]

可以为它们都加一个独特的tag值，
通过components遍历时，遇到此tag进行同样的处理

[haitao]

哦，再看了一下需求，好像直接使用MaskEdit就行了吧

[飞狼兄]

你可以写一个继承的TEdit类～添加一个控制属性就可以了！

[try__again]

可以自己写一个edit
或者用raize的控件，rznumricedit

[frankie_24]

写到ActionList里面,然后挂.呵呵
或是自己封装一个小的Edit就可以了