Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Ser_max   (2005-01-29 00:31) [0]

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

---

← →
GanibalLector ©   (2005-01-29 01:59) [1]

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

---

← →
Johnmen ©   (2005-01-29 02:03) [2]

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

---

← →
GanibalLector ©   (2005-01-29 02:08) [3]

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

---

← →
GrayFace ©   (2005-01-29 05:50) [4]

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

---

← →
Fay ©   (2005-01-29 06:09) [5]

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.

---

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

Форум: "Основная";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];

Наверх

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