Question bête sur les sauts de lignes dans les TMemo

11/10/2007, 16h12

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.

11/10/2007, 16h34

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;

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, 16h52

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 ?
>
Nickel merci !!

11/10/2007, 17h13

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

12/10/2007, 08h54

il faut tester aussi si l'utilisateur ne peut pas rentrer le saut de
ligne par presse-papier (Ctrl-V), je ne suis pas sur de tout que cela
passe par l'évènement KeyPress.

Henri Gourvest a écrit :
> 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, 16h12	#1 (permalink)
Laurent Messages: n/a Hébergeur:	Question bête sur les sauts de lignes dans les TMemo 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.

11/10/2007, 16h34	#2 (permalink)
Henri Gourvest Messages: n/a Hébergeur:	Re: Question bête sur les sauts de lignes dans les TMemo 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;

11/10/2007, 16h43	#3 (permalink)
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

11/10/2007, 16h52	#4 (permalink)
Laurent 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 ? > Nickel merci !!

11/10/2007, 17h13	#5 (permalink)
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

12/10/2007, 08h54	#6 (permalink)
m.banaouas Messages: n/a Hébergeur:	Re: Question bête sur les sauts de lignes dans les TMemo il faut tester aussi si l'utilisateur ne peut pas rentrer le saut de ligne par presse-papier (Ctrl-V), je ne suis pas sur de tout que cela passe par l'évènement KeyPress. Henri Gourvest a écrit : > 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

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email