Discussion :

[Invité(e)]

Bonsoir à tous,

je continue mon apprentissage sur Delphi. Je souhaite récupérer un simple mot que j'ai copié dans le presse-papier depuis un TdT et le récupérer pour l'afficher dans un Messagebox et je n'y arrive pas.

Voilà mon code. Un grand MERCI d'avance pour votre aide !
Arnaud

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
unit Unit1;
 
interface
 
uses
  Windows, Messages, Clipbrd, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Procedure
 
Begin
ShowMessagebox(PasteFromClipboard, 'Depuis le presse-papier', '');
end.

[mick605]

Salut

Pour le presse papier, il faut ajouter une use ClipBrd. Ensuite, si ton texte est plus petit que 255 caracteres, il est dans ClipBoard.AsText;

Bonne Chance !

[Invité(e)]

Merci beaucoup Mick pour ta réponse !

J'avais déjà décléré le Clipbrd dans uses.

Je vais essayer d'utiliser Clipboard.AsText dans ma fonction
ShowMessagebox(PasteFromClipboard, 'Depuis le presse-papier', '');

Encore merci !

Arnaud

[Invité(e)]

J'ai essayé mais celà ne marche pas.

J'ai essayé de mettre un menu avec Edit et voilà mon code

Je récupère quelque chose qui n'a rien à voir avec le mot coupé depuis Word.

Merci d'avance pour votre aide,

Arnaud

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit Unit1;
 
interface
 
uses
  Windows, Messages, Menus, Classes, ActnList, SysUtils, Variants, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    ActionList1: TActionList;
    MainMenu1: TMainMenu;
    Edition1: TMenuItem;
    Objet1: TMenuItem;
    Liaisons1: TMenuItem;
    N1: TMenuItem;
    Allerligne1: TMenuItem;
    Remplacer1: TMenuItem;
    Chercher1: TMenuItem;
    N2: TMenuItem;
    Collagespcial1: TMenuItem;
    Coller1: TMenuItem;
    Copier1: TMenuItem;
    Couper1: TMenuItem;
    N3: TMenuItem;
    Refairecommande1: TMenuItem;
    Dfaire1: TMenuItem;
    procedure Coller1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Coller1Click(Sender: TObject);
begin
Application.Messagebox(PChar(Coller1), 'Look', MB_OK);
 
end;
 
end.

[Invité(e)]

Un autre code qui m'affiche des hiéraglyphes mais pas le mot que j'ai copié dans WORD : bateau'.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
unit Unit1;
 
interface
 
uses
  Windows, Messages, QClipBrd, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
uses Clipbrd;
 
Begin
Application.MessageBox(PChar(Clipbrd.TClipboard), 'Look', MB_OK);
 
end.

[Cl@udius]

Salut

Essaye ceci:

Code :

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

1
2
3
4
5
6
7
8
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    MessageDlg(Clipboard.AsText, mtInformation, [mbOK], 0);
    Clipboard.Clear;
  end
  else
    MessageDlg('Aucun texte présent dans le presse-papiers',
      mtInformation, [mbOK], 0);

@+ Claudius