Quel composant utiliser ???Résolu

Question

Salut &#224; tous

Je souhaite  r&#233;aliser la petite applicatin suivante :

Je tape mon message et quand je clique sur envoyer il arrive dans le cadre sup&#233;rieur

avec un &#233;dit c'est facile :
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.text:=Edit1.text+Edit2.text


end;


end.

Ma question est double :

*Un Edit me semble pour la partie sup&#233;rieure pas terrible : non d&#233;filement vertical et horizontal car pas de scrollbar associ&#233;. Quel composant de type text je peux utiliser ??

*Second question : comment faire pour que &#224; chaque envoie le message se mette en dessous du pr&#233;c&#233;dent et non &#224; la suite ??? 

PS : le cadre Message doit etre un &#233;dit

jlen100 · Accepted Answer

mille excuses

la methode Append n'admet qu'un seul parametre. (la ligne est toujours
mise &#224; la fin decidement il y a des jours il vaudrait mieux aller se
coucher!!!!!

memo1.lines.Append(1 ,' coucou');----->memo1.lines.Append(' coucou');

armetiz · Answer

j'ai regarder les tutos (je cherch un truc moi aussi lol), et j'ai vu un truc qui devrai t'intereser...
une sorte de TEdit, mais, multi ligne.. j'sais plus le nom (j'debute :|), ainsi qu'une procedure pour ajouter le texte apres la derniere lettre deja presente dans le TEdit multiligne, ou alors, a la suite, mais avec un retour chariot en plus.. have fun ;)

jlen100 · Answer

Grrrrr..... un message priv&#233; m'a becqueter ce que je venais de taper

bon je recommence:

2 solutions au moins dans ton cas:

1) une listbox

2) un memo

 dans les 2 cas tu positionnes le pointeur sur sur la 1ere ligne :

listbox1.items[0]; ou memo1.lines[0];

puis tu fais listbox1.items.insert('chaine a ajouter') pour la listbox
ou  memo1.lines.insert('chaine a ajouter') pour le memo 

pour les sccroollbar tu en une  verticale pour la listbox ou
verticale et horizontal pour le memo (voir dans les proprietes)

pour les cadre utilisite les proprietes borders

bonne prog

Francky23012301 · Answer

salut,

deux petites questions :

*memo1.lines.insert[0] et memo1.lines.insert('chaine a ajouter') je l'ai place bien dans la proc&#233;dure du bouton "ENVOYER" ???

*La synthaxe de memo1.lines.insert est memo1.lines.insert(index : integer ;Const s : string). si je ne me trompes pas index est l'&#233;quivalent de l'item pour la tlistbox : autrement dit c'est le num&#233;ro de la ligne du m&#233;mo. Ca veut dire que je dois d&#233;finir un integer qui correspond au nombre de fois oui j'appuye sur le bouton ??? 

Merci

jlen100 · Answer

oui effectivement inserre &#224; la position specifi&#233;e ainsi si tu inseres
toujours &#224; la 1ere ligne tu ecris: memo1.lines.insert(0,chaine a
inserer); la taille de la chaine est mise automatiquement &#224; jour. Si tu
veux ajouter &#224; la fin tu fais: memo1.lines.Append(0chaine a inserer);

nota: items et lines sont des Tstrings tu peux leur  appliquer toutes les methodes de Tstrings;

jlen100 · Answer

index peut &#234;tre une constante

decidement j'ai des problemes de vue!!

lire:memo1.lines.Append(0 , chaine a inserer); et non memo1.lines.Append(0chaine a inserer);

les lignes sont comptees de 0 &#224; count-1; 0 &#233;tant la 1ere ligne

count etant la propriete de items ou de lines

Francky23012301 · Answer

Bon voila un petit bout de code tout simple :

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines[0]
memo1.lines.Append(1 ,' coucou');
end;


end.

Bien il ya une erreur lors de la compilation

Francky23012301 · Answer

Si j'ai bien compris pour le d&#233;compte des lines: je dois faire une fonction appel&#233;e par la proc&#233;dure du bouton.Cette fonction doit me donner le num&#233;ro du line ???

jlen100 · Answer

precision memo1.Lines[0] est inutile avec append

pour les decompte des lignes il suffit de lire la propriete count

jlen100 · Answer

la propriete memo1.lines.count

Francky23012301 · Answer

Jlen petite rectification :
a chaque ajout de message, ce dernier s'affiche automatiquement &#224; la ligne suivante. Donc inutile d'utiliser la propri&#233;t&#233; count.

En r&#233;sum&#233; :  Un bouton, un edit, un m&#233;mo

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.Append(Edit1.text);
end;


end.

Si on tape coucou dans l'&#233;dit, en appyant syr le bouton, coucou apparait dans le m&#233;mo.

Si on tape coucoujlen dans l'&#233;dit, en appyant su le bouton, coucoujlen  apparait dans le m&#233;mo &#224; la ligne d'apr&#232;s

Merci pour tout et bonne nuit  .

jlen100 · Answer

oui exact je t'ai ecrit que la ligne &#233;tait toujours mise &#224; la fin la
propriete count est mise &#224; jour mais il est inutile de la lire avant
d'ajouter une nouvelle ligne 

tu peux egalement faire Memo1.lines[-1]='cocou' cela aura le mem resultat que la methode Append;

Quel composant utiliser ???

12 réponses

Votre réponse

Discussions similaires