IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Récupérer un simple mot depuis le presse papier


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité(e)
    Invité(e)
    Par défaut Récupérer un simple mot depuis le presse papier
    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.

  2. #2
    Membre Expert

    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2009
    Messages
    935
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2009
    Messages : 935
    Par défaut
    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 !

  3. #3
    Invité(e)
    Invité(e)
    Par défaut
    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

  4. #4
    Invité(e)
    Invité(e)
    Par défaut
    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.

  5. #5
    Invité(e)
    Invité(e)
    Par défaut
    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.

  6. #6
    Expert confirmé
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Par défaut
    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

Discussions similaires

  1. Réponses: 0
    Dernier message: 10/07/2014, 11h59
  2. Script js pour remplir un tableau depuis le presse papier
    Par Faiche dans le forum Bibliothèques & Frameworks
    Réponses: 1
    Dernier message: 19/05/2009, 07h27
  3. Récupérer l'image copiée dans le presse-papier
    Par cincap dans le forum Débuter
    Réponses: 12
    Dernier message: 19/08/2008, 12h34
  4. récupérer une image du presse papier
    Par amelhog dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 09/08/2005, 10h18
  5. Récupérer un évènement du presse papier
    Par cedrolin dans le forum MFC
    Réponses: 2
    Dernier message: 26/07/2004, 23h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo