imposé taille a edit

bonjour,

je voudrait imposé 4 caractere dans un edit, j'ai reussi a bloquer a 4 caractere mais pas reussi a en obliger 4.
deplus je n'arrive pas non plus a impossé que des chiffres.
si moin de 4 caractere dans edit je souhaite que lorsque l'on clic sur le bouton ca ne face rien et que cela me dise ex: pas 4 chifre

Salut,

utilise un MaskEdit à la place ... tout y est prévu

parce que avec un TEdit c'est possible mais il faudra également gerer le copier/coller
voir ce code

 
@+
Cirec

---

Tu peux utiliser un :
TMaskEdit
en modifiant sa propriété "EditMask"

@+
Nico { [ Lien ] }

Quelques infos en passant sur les valeurs possibles pour EditMask:

[ Lien ]

@+
Nico { [ Lien ] }

TEditmask pas trés réussie a mon avis, tros de bug, faire ces propres contrôles c'est mieux.

Matrix

quels genre de bugs ?

j'ai jamais eu de problèmes avec!!!

 
@+
Cirec

---

je vous remerci mais j'ai reussi

avec :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (Key in ['0'..'9',Chr(VK_DELETE),Chr(VK_BACK)]) then
    Key:=#0;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Length(Edit1.Text)<Edit1.MaxLength then
  begin
    ShowMessage('Il faut 4 chiffres');

  end;

end;

ouai et si l'utilisateur fait un coller ??????
pourquoi vous posez des questions si c'est pour ne pas écouter les réponses
 
@+
Cirec

---

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited; // ?????! pas d'inherited dans un gestionnaire d'evenement!
  if not (Key in ['0'..'9',Chr(VK_DELETE),Chr(VK_BACK)]) then
    Key:=#0;
end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9',#8]) then
    Key:=#0;
end;



mais le mieux est de faire :

Unit Unit1;

interface

uses ...;

type
  TEdit = class(StdCtrls.TEdit)
  private
    fTextAlign   : TAlignment;
    fOnlyNumbers : boolean;
    procedure SetOnlyNumbers(val : boolean);
    procedure SetTextAlign(val : TAlignment);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnlyNumbers  : boolean    read fOnlyNumbers write SetOnlyNumbers;
    property TextAlignment: TAlignment read fTextAlign   write SetTextAlign;
  end;

  TForm1 = class(TForm)
  ....
  end;

var
  Form1 : TForm1;

implementation

constructor TEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fOnlyNumbers := false;
  fTextAlign   := taLeftJustify;
end;

procedure TEdit.CreateParams(var Params: TCreateParams);
const
  Alignments : array[TAlignment] of Word = (ES_LEFT, ES_RIGHT, ES_CENTER);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or Alignments[TextAlignment];
  if fOnlyNumbers then
     Params.Style := Params.Style or ES_NUMBER;
end;

procedure TEdit.SetOnlyNumbers(val: boolean);
begin
  if fOnlyNumbers <> val then begin
     fOnlyNumbers := val;
     RecreateWnd;
  end;
end;

procedure TEdit.SetTextAlign(val : TAlignment);
begin
  if fTextAlign <> val then
  begin
     fTextAlign := val;
     RecreateWnd;
  end;
end;


et dans le OnCreate de la fiche :

EditX.OnlyNumber := true;
EditX.TextAlignement := taRight;
EditX.MaxLength := 4;

puis dans le OnChange de l'edit :

procedure TForm1.EditXOnChange(Sender: TObject);
var L : integer;
const
  EdtCol : array[boolean] of tcolor = (clRed, clBlue);
begin
  L := Length(EditX.Text);
  EditX.Font.Color := EdtCol[L = 4];

  // ou encore :
  {
   L := IntToStrDef(EditX.Text, 0);
   EditX.Font.Color := EdtCol[(L >= 1000) and (L < 10000)];
  }
end;

---

@f0xi :

Intéressant mais en quoi est-ce mieux qu'un MaskEdit ?

cantador