Discussion :

[Manopower]

Bonjour tout le monde,
me voici avec un nouveau souci insurmontable

J'ai une TForm avec un bon nombre de TLabel, créés dynamiquement et positionnés selon plusieurs critères venant d'une base de donnée.
Bref, j'aimerais que l'utilisateur puisse tout sélectionner d'un mouvement de souris comme on pourrait le faire avec du texte sur une page web par exemple.
Les TLabel n'offrent pas cette possibilité.

La solution proposée ici http://www.developpez.net/forums/sho...+papier+copier
ne me convient pas, car j'ai environ 60 Labels et je ne veux pas faire une usine à gaz (enfin pas plus que ça ne l'est déjà )

Cela ne me gène pas de tout faire par programmation et de proposer un bouton "Copier tout" à l'utilisateur, qui enverra le résultat directement dans le presse papier.

PS : il y a une image de fond, donc les TEdit ne sont pas appropriés.

[TicTacToe]

Salut,

C'est bizzare, c'est comme une impression de déjà vu cette question

ceci pourrait faire l'affaire

Code :

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

1
2
3
4
5
6
7
8
var
  STexte: string;
begin
  STexte := '';
  for i := 0 to [nombre de label] 
    do STexte := STexte + ' ' + FindComponent( 'UnLabel' ).Caption;
  CLipBoeard.AsText := STexte;
  ...

Si tu stockes tes labels dans une liste, ce sera encore plus rapide
Eventuellement, ajouter #9 à chaque tour pour coller dans Excel par exemple.

[Manopower]

Merci j'essaye ça ce soir, mais cet objet Clipboeard il est déclaré où ? De quel type ? Peux-t-on lui envoyer plusieurs lignes ou doit-on lui envoyer un string avec des chr(10) pour revenir à la ligne ?

[TicTacToe]

Erreur de frappe

C'est

Code :

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

ClipBoard.AsText

Dans l'unité

Code :

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

Clipbrd

F1 sur TClipBoard est un bon point de départ