Визуальный компонент от TEdit

[Mareck]

Помогите пожалуйста, немного встал в ступор.

Есть созданный новый компонент в Delphi, нужно прописать свойство, чтобы по умолчанию можно было бы вводить только целые числа в поле text.

Подскажите каким образом это можно осуществить?

[VVM]

Нужно обрабатывать событие OnKeyPress.
Так:

if not (Key in ['0'..'9']) then
  key := #0;

Или так:

if not CharInSet(Key, ['0'..'9']) then
  key := #0;

[0nni]

Лучше так

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER)

А вообще мне первый способ кажется быстрее. CharInSet это все таки функция, и за ее вызов нужно платить.

[Mareck]

Я немного не правильно изъяснился, мне это нужно все сделать в новом компоненте, то есть создать новый компонент, у которого родитель TEdit а свойство text перекрывается таким способом что можно ввести только тип integer.

[Mareck]

ВОт, после 3 часов мытарств поиска в инете нашел

unit NumEdit;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TNumEdit = class(TEdit)
procedure CreateParams(var Params: TCreateParams); override;
procedure KeyPress(var Key: Char); override;
end;

procedure register;

implementation

procedure register;
begin
RegisterComponents('Standard', [TNumEdit]);
end;

procedure TNumEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT;
end;

procedure TNumEdit.KeyPress(var Key: Char);
begin
case key of
'0'..'9': ; // цифры
#8: ; // забой
'.', ',':
if Pos(DecimalSeparator, Text) = 0 then
Key := DecimalSeparator
else
Key := #0; // десятичный разделитель
else
key := #0;
end; // case
end;

end.

[0nni]

Глупо, сделайте так

Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT or ES_NUMBER

и эта процедура не понадобится

procedure TNumEdit.KeyPress(var Key: Char);

Кстати в в курсе , что создаете многострочный Edit (по сути Memo)?