Discussion :

[LiffeurDeiench]

Bonjour,

Je voudrais savoir s'il est possible d’être averti lorsque un utilisateur veut entrer un texte plus long que MaxLength.
En fait, j'ai surtout un problème lorsque l'utilisateur fait un "coller" dans le tedit, en effet le texte est tronqué (si il est trop long) mais je n'ai pas moyen de savoir que l'utilisateur a voulu dépasser la longueur max. Donc l'utilisateur ne peut pas être averti qu'il a voulu dépasser une limite.
Lorsque l'utilisateur entre son message en tapant caractère après caractère j'arrive à gérer assez facilement avec les événrments keyup et keydown.

Merci d'avance

[Andnotor]

A part créer un nouveau composant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type
  TEditEx = class(TEdit)
    procedure WMPaste(var Message: TMessage); message WM_PASTE;
  end;
 
procedure TEditEx.WMPaste(var Message: TMessage);
begin
  if MaxLength > 0 then
    if Length(Text) -Length(SelText) +Length(ClipBoard.AsText) > MaxLength then
    begin
      MessageDlg('Texte trop long', mtWarning, [mbOk], 0);
      Exit;
    end;
 
  SelText := Clipboard.AsText;
end;

Dommage qu'on ne puisse pas le faire par ClassHelper

[LiffeurDeiench]

Merci pour ta réponse et pour ton exemple !

[chekkal]

Bonjour,

tu peut aussi contrôler ça sans création d'un nouveau composant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (SSCTRL IN Shift)and(key=86)and(Tedit(sender).MaxLength<length(clipboard.AsText)) then
        showmessage('message trop long!');
 
 
end;

A CONDITION QUE LE COLLER SE FAIT PAR CTRL+V