| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Maskedit [D6]

Ser_max ©   (2005-01-29 00:31:00) 

Привет всем! Вот у меня имеется TMaskEdit, в который можно ввести 4 цифры..но цифра МОЖЕТ быть..то есть можно и 3 ввести. Так вот, трабла - не делается на сабж StrToInt, если введно <4 цифр..как быть?

---

Fay   (2005-01-29 06:09:00) [1]

2 GanibalLector ©   (29.01.05 1:59) [1]
> chr(48)<=число>=chr(57).
Ну ты садист 8) Я бы сказал #$30 <= цифра >= #$39

2 Ser_max   (29.01.05 0:31)
Попробуй так.
unit Unit1;

interface

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

type
 TYourEdit = class(TMemo)
 protected
   procedure CreateParams(var Params : TCreateParams); override;
 end;

 TForm1 = class(TForm)
 private
   procedure YourEditExit(Sender : TObject);
 public
   YourEdit1 : TYourEdit;
   constructor Create(AOwner : TComponent); override;
   destructor Destroy; override;
 end;

var
 Form1 : TForm1;

implementation

{$R *.dfm}

procedure TYourEdit.CreateParams(var Params : TCreateParams);
begin
 inherited;
 Params.Style := Params.Style or ES_NUMBER;
end;

{ TForm1 }

constructor TForm1.Create(AOwner : TComponent);
begin
 inherited;
 YourEdit1 := TYourEdit.Create(Self);
 with YourEdit1 do
   begin
     Top := 100;
     Width := 100;
     Height := 21;
     Text := '';
     MaxLength := 4;
     Alignment := taRightJustify;
     Parent := Self;
     OnExit := YourEditExit;
   end;
end;

destructor TForm1.Destroy;
begin
 YourEdit1.Free;
 inherited;
end;

procedure TForm1.YourEditExit(Sender : TObject);
begin
 ShowMessage('Ку-ку!');
end;

end.

---

GrayFace   (2005-01-29 05:50:00) [2]

И я присоединяюсь - если можно без MaskEdit, то лучше без него.

---

GanibalLector   (2005-01-29 02:08:00) [3]

Мне он тоже не нравиться.Полностью согласен с [2]

---

Johnmen   (2005-01-29 02:03:00) [4]

Лучшие рекомендации собаководов-корректоров - никогда не использовать TMaskEdit.

---

GanibalLector   (2005-01-29 01:59:00) [5]

Дык отсей все то,что не chr(48)<=число>=chr(57).Делов то...

---

Наверх