Kopieren en plakken

[Code95]

Hallo allemaal

Ik ben tot nu toe een klein tekst programma aan het schrijven maar nu kom ik met twee
vragen 1 wat is de code voor het kopieren van tekst.
Als je met ingedrukte muis over de tekst gaat en als je het dan kopieerd
en dan weer ergens anders,bijvoorbeeld kladblok,plakt.
En vraag 2 wat is de code voor het plakken.


alvast bedankt

Code95:thumb:

 

[evertVB]

Je wil het clipboard gebruiken?

Zorg dat je ClipBrd bij je uses hebt staan.
Dan heb je ook de mogelijkheid om tekst van en naar het clipboard te kopieren.

Tekst kopieren van en naar een string:

  clipboard.AsText := MyString;
  ...
  MyString := clipboard.AsText;

Tekst kopieren van en naar een stringlist kan ook:

  clipboard.AsText := MyStringList.Text;
  ...
  MyStringList.Text := clipboard.AsText;

 

[Code95]

Je wil het clipboard gebruiken?

Zorg dat je ClipBrd bij je uses hebt staan.
Dan heb je ook de mogelijkheid om tekst van en naar het clipboard te kopieren.

Tekst kopieren van en naar een string:

  clipboard.AsText := MyString;
  ...
  MyString := clipboard.AsText;

Tekst kopieren van en naar een stringlist kan ook:

  clipboard.AsText := MyStringList.Text;
  ...
  MyStringList.Text := clipboard.AsText;

Je bedoelt dat ik ClipBrd bij de uses moet zetten zo?

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls ,Menus ,ClipBrd;

En als dat klopt waar kan ik het clipoard dan vinden bij Standard,Additional,Win32, enz.


Groetjes Code95:thumb:

 

[evertVB]

Als ik me niet vergis dan is het voldoende om alleen in de sourcecode ClipBrd in de uses te zetten.
Zoals in jouw vorige post dus.
Ik hoor graag of het bij jou ook werkt.

 

[Code95]

Ik heb hem in de uses gezet.
toen FormCreat en toen

clipboard.AsText := MyString;

maar dan geeft ie deze error

[Error] Unit1.pas(54): Undeclared identifier: 'MyString'

procedure TForm1.FormCreate(Sender: TObject);
begin
clipboard.AsText := MyString;
end;

end.

wat heb ik fout gedaan?!


groetjes Code95:thumb:

 

[evertVB]

MyString moet gedeclareerd worden.