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

11/10/2007, 18h13

OBones a écrit :
> 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 ?
>
c'est mieux en effet

11/10/2007, 18h13	#5
Henri Gourvest Messages: n/a Hébergeur:	Re: Question bête sur les sauts de lignes dans les TMemo OBones a écrit : > 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 ? > c'est mieux en effet