PHWinfo - Afficher un message - Question bête sur les sauts de lignes dans les TMemo

11/10/2007, 16h43

Henri Gourvest wrote:
> Laurent a écrit :
>> Bonjour tout le monde,
>>
>> J'ai une question idiote, mais je bloque là...(ça sent la fin de
>> semaine...).
>> En fait, j'ai un TMemo que je veux utiliser comme un TEdit.
>> Par conséquent, je veux supprimer la possibilité de faire des saut de
>> ligne.
>> => j'ai mis WantReturns à False...mais problème : en faisant
>> Ctrl+Entrée, et bien ça me fait un saut à la ligne.
>>
>> Comment interdire le saut de ligne dans un TMemo donc ?
>>
>> Merci d'avance,
>> Laurent.
>
>
> facile

il faut utiliser l'évenement OnKeyPress
>
> procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
> begin
> if Key in [#10, #13] then abort;
> end;

Abort ? Euh, pkoi pas Key := #0 ?

--
Olivier Sannier
Coordinateur Général JVCL
http://jvcl.sf.net/

Retrouvez-moi sur Viaduc :
http://www.viaduc.com/invitationpers...023asu3wwgwpzx

11/10/2007, 16h43	#3
OBones Messages: n/a Hébergeur:	Re: Question bête sur les sauts de lignes dans les TMemo Henri Gourvest wrote: > Laurent a écrit : >> Bonjour tout le monde, >> >> J'ai une question idiote, mais je bloque là...(ça sent la fin de >> semaine...). >> En fait, j'ai un TMemo que je veux utiliser comme un TEdit. >> Par conséquent, je veux supprimer la possibilité de faire des saut de >> ligne. >> => j'ai mis WantReturns à False...mais problème : en faisant >> Ctrl+Entrée, et bien ça me fait un saut à la ligne. >> >> Comment interdire le saut de ligne dans un TMemo donc ? >> >> Merci d'avance, >> Laurent. > > > facile il faut utiliser l'évenement OnKeyPress > > procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); > begin > if Key in [#10, #13] then abort; > end; Abort ? Euh, pkoi pas Key := #0 ? -- Olivier Sannier Coordinateur Général JVCL http://jvcl.sf.net/ Retrouvez-moi sur Viaduc : http://www.viaduc.com/invitationpers...023asu3wwgwpzx