Discussion :

[avogadro]

Bonjour,

le titre en dit pas mal, en fait moi j'utilise ceci :

Code :

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

1
2
3
4
5
procedure TForm1.Button20Click(Sender: TObject);
begin
Memo3.CopyToClipboard;
ShowMessage('Le code a été copié, déposez le à présent' + sLineBreak + 'dans votre article.');
end;

Le problème étant que ce code fonctionne que pour le texte selectionné, il ne copie rien car de 1 quand on clic sur n'importe qu'elle autre bouton le focus ne reste pas dans le mémo et 2, de toute façon rien n'est sélectionner, il faudrait la fonction qui sélectionne la totalité du texte d'un mémo.

[TicTacToe]

et

Code :

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

Memo.SelectAll ?

F1

Sinon il y a aussi

Code :

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

Clipboard.SetTextBuf( Memo.Lines.Text );

bon courage !

[avogadro]

En effet c'était tout con en fin de compte, j'avais pas vu la fonction :s merci

Code :

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

1
2
3
4
5
6
procedure TForm1.Button20Click(Sender: TObject);
begin
Memo3.SelectAll;
Memo3.CopyToClipboard;
ShowMessage('Le code a été copié, déposez le à présent' + sLineBreak + 'dans votre article de blog.');
end;