Edit

← →
Марат (2003-11-06 09:32) [0]

Можно ли в Delphi прописать свойства поля Edit так, чтобы в это поле можно было бы заносить только цифры и не менее 7 знаков.

← →
ЮЮ (2003-11-06 09:36) [1]

TMaskEdit

← →
bon (2003-11-06 10:17) [2]

>чтобы в это поле можно было бы заносить только цифры

Попробуй

procedure TFmFindChert.Edit1Change(Sender: TObject);
Var K:Char; C:Boolean; T:String;
begin
if TEdit(sender).Text="" then exit;
C:=True;
T:=TEdit(sender).Text;
K:=TEdit(sender).text[Length(TEdit(sender).Text)];
if k<>"," then C:=(ord(k)>=ord ("0")) and (ord(k)<=ord ("9"));

if (not c) and (K<>",") then
begin
SetLength (T,length(TEdit(sender).Text)-1);
TEdit(sender).Text:=t;
TEdit(sender).SelStart:=Length(TEdit(sender).Text);
end;
end;

>и не менее 7 знаков.

TMaskEdit

Edit Найти похожие ветки