Скачать: CL | DM;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c