Transfert d'une ligne d'un Tmemo dans un Tedit

**Modulpro** · 02/10/2010, 12h04

Bonjour,
je suis débutant sur Lazarus.( donc ma question va peut être paraitre bête)

Je me demandais s'il était possible de placer le contenu d'une ligne entière de Tmemo dans un Tedit par un simple clique simple sur cette ligne.
Peut être le Tmemo n'est il pas le bon composant pour cette opération?
Si la réponse est oui, merci de m'indiquer comment proceder.

Invité · 03/10/2010, 09h16

Bonjour,

Est-ce que le Tmemo est adapté ? Cela dépend de ce que vous cherchez à faire. Si c'est une liste contenant de simples lignes... Non.

Ensuite, en supposant que le Tmemo convienne, cela dépend également de la manière dont est sélectionnée la ligne. Par code ou par clic sur le Tmemo (la ligne étant déjà sélectionnée par code) ou par utilisation de la souris directement dans le Tmemo pour en sélectionner un extrait de son contenu...
En supposant que cela soit le bon composant et la dernière hypothèse de sélection, je procéderais ainsi : Une fois le Tmemo rempli, vous sélectionnez à la souris la ligne, les lignes ou un extrait quelconque. Il faut alors déclencher le remplissage du TEdit à la fin de l'opération de sélection : dans l'évènement OnMouseUp du TMemo (évènement qui correspond à la fin de la sélection), vous pouvez récupérer ce qui est sélectionné dans le TMemo par Memo1.SelText.
Mais avant de l'affecter au TEdit, soit vous vérifiez que ce qui est sélectionné ne constitue qu'une seule ligne (si telle est votre demande), soit vous faites un petit traitement pour vous débarasser des retours à la ligne.

Cordialement. Gilles

**Modulpro** · 03/10/2010, 11h20

Bonjour,
Merci pour votre réponse, la solution fonctionne bien : en effet, ce serai pour selectionner directement la ligne avec la sourie.
Cependant, je me demandais s'il n'existait pas un composant qui permette de:
- afficher plusieures lignes de caractères en lecture seule (équivaut au TMemo avec readonly:=true)
- gérer l'évenement onclick pour chaque ligne
- acceder séparément à chacunes des lignes (quelquechose du genre " nom-du-composant[n°ligne] "

En effet, mon but est de copier l'integralité de la ligne par un simple clique dessus (même si la selection n'est déjà pas mal).
Ou bien est il possible de configurer le Tmemo pour qu'il sélectionne automatiquement la ligne sur laquelle on clique (et utiliser dans ce cas SelText). J'ai cherché dans les évenements du TMemo, mais n'ais rien trouvé dessus.

Encore merci pour la réponse.

**winow** · 03/10/2010, 20h49

Bonjour
Essaye d'ameliorer cela si ca peut te convenir.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Memo1Click(Sender: TObject);
begin
 
 with TMemo(Sender) do
   CaretPos:= Point(0, CaretPos.Y);
   Memo1.SelLength:= length(Memo1.Lines[Memo1.CaretPos.Y]);
   Memo1.CutToClipboard;
   Edit1.Clear;
   Edit1.PasteFromClipboard;
 
end;

Ce code marche sous Ubuntu (Linux)
A+

**Modulpro** · 04/10/2010, 19h25

Bonjour,

Merci pour la réponse. Je viens d'essayer cette solution, qui fonctionne effectivement très bien (je travaille sous XP ).
Cependant, le clique sur une ligne provoquait la supression de cette ligne dans le memo (et donc son apparition dans le Tedit).
Pour palier à ce problème, j'ai remplacé le "Memo1.CutToClipboard;" par "Memo1.CopyToClipboard;". La procédure est maintenant fonctionelle, mon probleme initial est donc résolu.

Merci beaucoup pour votre aide.