Copy & Paste in und aus der Zwischenablage ?

[taktaky]

Hallo

Ich möchte den text von edit1 zu edit2 kopieren
Der Text soll ausgewählt und dann in Zwischenablage kopiert werdnen. Dann soll der Cursor in edit2 angezeigt (Focus) und dann den text von der Zwischenablage eingefügt werden.

Ich möchte nicht die einfache Form :
Edit2.Text:=Edit1.Text verwenden

gruß

[Reinhardtinho]

Edit1.CopyToClipboard.

[Edit]Wobei ich die einfache Version bevorzugen würde. Du zerschießt sonst die Zwischenablage vom Benutzer.[/Edit]

[Phoenix]

Die Unit Clipbrd und das Property Clipboard.AsText sind Dein Freund.

[Sherlock]

Die Delphi-Hilfe liefert zum Suchbegriff TClipboard alles nötige.

Sherlock

[RavenIV]

Zitat:

Zitat von Reinhardtinho

Edit1.CopyToClipboard.

[Edit]Wobei ich die einfache Version bevorzugen würde. Du zerschießt sonst die Zwischenablage vom Benutzer.[/Edit]

Fände ich auch blöd, wenn plötzlich ein ganz anderer Text bei mir in der Zwischenablage steht, wenn ich Dein Programm gestartet habe.
Angnommen ich habe eine komplexe Grafik in der Zwischenablage.
Und die ist nun futsch, bloss weil der Programmierer *meine* Zwischenablage missbraucht. :-(

[Phoenix]

Bitte keine Meta-Diskussionen über den Sinn und Zweck der Zwischenablage an dieser Stelle.
Vielleicht wird die Funktion von einem Button mit dem Text 'Copy to Clipboard' aufgerufen, vielleicht auch nicht. Das wissen wir nicht, also ist das reine Spekulation ob das nun gut oder nicht gut ist an der Stelle. Die Bedenken wurden geäussert, da kann der Threadersteller nun was draus machen (wenn er will, oder eben auch nicht). Das sollte uns in diesem Thema nicht weiter interessieren.

[taktaky]

Danke Leute
Google hat auch wie immer weiter geholfen
Den Code komplett und gekocht aus China :mrgreen: :

Delphi-Quellcode:

  begin  
  sleep(1000);
  edit1.SetFocus;
               edit1.SelectAll;
               sleep(2000);
               edit1.CopyToClipboard;
               edit2.SetFocus;
        sleep(2000);
        keybd_event(VK_CONTROL,   0,   0,   0);
        keybd_event(Ord('V'),   0,   0,   0);
        keybd_event(Ord('V'),   0,   KEYEVENTF_KEYUP,   0);
        keybd_event(VK_CONTROL,   0,   KEYEVENTF_KEYUP,   0);
  end;

[DeddyH]

Wozu die Sleeps? Und warum nicht das Pendant zu CopyToClipBoard (=PasteFromClipBoard) verwenden?

[taktaky]

Zitat:

Zitat von DeddyH

Wozu die Sleeps? Und warum nicht das Pendant zu CopyToClipBoard (=PasteFromClipBoard) verwenden?

Mit sleep wollte ich damit die Auswahl sehen, sonst geht es ganz schnell
mit Edit2.PasteFromClipboard geht auch natürlich
gruß



Ich möchte nun meine Variable S1 das String in Zwischenablage zuweisen
Wie kann ich das machen ?

Delphi-Quellcode:

var s1: String;
begin
edit1.CopyToClipBorad;
S1:=PasteFromClipBoard !
end;

[DeddyH]

Zitat:

Zitat von Phoenix

Die Unit Clipbrd und das Property Clipboard.AsText sind Dein Freund.