Mal wieder: Copy and Paste

[se0man]

Hoi,
ich hoffe das Thema nervt euch noch nicht,
doch ich habe mir aus den bisherigen Copy & Paste- Themen
folgendes nicht herauslesen können:

Wie kann ich formularweit (über alle Komponenten reichend) ermitteln,
den markierten Text auf/in das Clipboard kopieren,
und später wieder an der aktuellen Position einfügen?
:gruebel:

Thanx im Voraus
- se0man

[Christian Seehase]

Moin seOman,

irgendwie hab' ich Dein Problem nicht verstanden.

[alcaeus]

Ich glaube er will im ganzen Formular herausfinden, in welchem Control Text markiert ist...Das müsste eigentlich das aktive Control sein

[se0man]

Richtig.
Ich hatte nur gedacht,
es existieren evtl. noch etwas Anderes,
weil ich es als ziemlich umständlich befand,
die Eigenschaft ActiveControl in unzähligen
if-clauses vergleichen,
um dann den gewünschten Befehl auszuführen.

Aber muss wohl sein, oder?

[alcaeus]

Delphi-Quellcode:

if (Form1.ActiveControl is TEdit) or
  (Form1.ActiveControl is TRichEdit) or 
  (Form1.AcitveControl is <anderes Control>) then
  (ActiveControl as TEdit).CopyToClipBoard;

Dies müsste eigentlich funktionieren, ist aber nicht getestet.

[toms]

Zitat:

Zitat von alcaeus

Delphi-Quellcode:

if (Form1.ActiveControl is TEdit) or
  (Form1.ActiveControl is TRichEdit) or 
  (Form1.AcitveControl is <anderes Control>) then
  (ActiveControl as TEdit).CopyToClipBoard;

Dies müsste eigentlich funktionieren, ist aber nicht getestet.

Nein das funktioniert nicht, denn man muss vor dem CopyToClipBoard noch SelectAll
ausführen.

Zudem ist TRichEdit, TEdit, TMemo usw. von TCustomEdit abgeleitet, d.h
es geht einfacher so:

Delphi-Quellcode:

  if (ActiveControl is TCustomEdit) then
  begin
    TCustomEdit(ActiveControl).Selectall;
    TCustomEdit(ActiveControl).CopyToClipboard;
  end;

[se0man]

:bounce1:
Yes, das wars, nach was ich suchte.

Thanx a lot

[alcaeus]

Zitat:

Zitat von se0man

Hoi,
den markierten Text auf/in das Clipboard kopieren

Der Problembeschreibung nach stimmt mein Code, außer halt mit dem TCustomEdit. SelectAll wäre hier nicht notwendig, da er ja den markierten Text kopieren will, und nicht den gesamten Text im aktiven Control...

[F.W.]

Wie kann ich einen String in die Zwischenablage kopieren? Und evtl. den Text aus der Zwischenablage wieder in den String einfügen?

[se0man]

Ganz einfach:

Code:

uses Clipbrd;

// Einlesen
Clipboard.AsText := DeinString;

// Auslesen
DeinString := Clipboard.AsText;

-seoman