Makierten Text in Zwischenablage kopieren

Ehemaliges Mitglied Erhaltene Danke: 1

Moin, gibt es ein Befehl womit man den Text der grad makiert ist (z.B. in einem Editfeld oder in einer Listbox) in die Windows zwischenablage kopiert? Also das man ihn in anderen Programmen weiterverwenden kann?

Nur damit es alle wissen: Ich hab die Suche benutzt und ich hab gegoogled aber ich werde da nicht schlau draus ode ich habe etwas bei der Suche übersehen... nur damit ihr nicht meckert

Narses · Verfasst: Do 26.10.06 22:35

Moin!

Barzi hat folgendes geschrieben:

Ich hab die Suche benutzt und ich hab gegoogled aber ich werde da nicht schlau draus ode ich habe etwas bei der Suche übersehen... nur damit ihr nicht meckert

Tun wir aber, weil soo schwer ist das nämlich nicht.

Barzi hat folgendes geschrieben:

Moin, gibt es ein Befehl womit man den Text der grad makiert ist (z.B. in einem Editfeld oder in einer Listbox) in die Windows zwischenablage kopiert? Also das man ihn in anderen Programmen weiterverwenden kann?

Was haben denn deine Recherchen bisher ergeben? Haste Code ausprobiert? Was hat´s gebracht? Zeig mal was.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Lannes · Verfasst: Do 26.10.06 22:38

Hallo,

kann es sein das Du Markiertes aus dem WebBrowser in die Zwablage befördern willst?

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Ehemaliges Mitglied Erhaltene Danke: 1

also ich war soweit das ich in die Uses-Klausel 'clipbrd' eingefügt hatte. Danach hatte ich dann versucht etwas mit dem Befehl Clipboard.Assign zum laufen zu bringen. Aber bis jetzt ohne Erfolg

Marc. · Verfasst: Do 26.10.06 22:44

ich helf dir mal:
ClipBoard.Astext := edit1.SelText;

Du weißt, dass assign "reservieren" heißt? :roll:

Ehemaliges Mitglied Erhaltene Danke: 1

@Lannes: Erraten!

Ehemaliges Mitglied Erhaltene Danke: 1

@marc ... nein wusste ich nicht :autsch:

... aber die ersten beiden Buchstaben waren schonmal richtig

Marc. · Verfasst: Do 26.10.06 22:58

na also assigne benutzt du entweder um zu prüfen, ob der speicherplatz schon reserviert wurde - if assigned(p) then.. - oder um bilder ins clipboard zu kopieren bzw. aus dem clipboard zu laden!
Also Clipboard.Assign(Bitmap1); {Delphi}
Für Text, bentzt du AsText!
grüße und gudenacht,
marc

Ehemaliges Mitglied Erhaltene Danke: 1

@Marc Ok, Danke ... gute nacht :wave:

Lannes · Verfasst: Do 26.10.06 23:05

Hallo,

@Barzi
war eine der leichteren Übungen :wink:

Aber warum erst alles markieren und dann in die Zwablage kopieren, erzähl doch mal was dein Ziel ist.

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Ehemaliges Mitglied Erhaltene Danke: 1

@Lannes
Also mein Ziel ist folgendes:
Ich mache grad ne Software wo Liedtexte mit gesucht werden können.
Ich habe das folgender Maßen gemacht: Einfach die Texte in HTML-Datein geschrieben und die dann im TWebbrowser angezeigt. Nun wollte ich zwei Buttons machen wo man sich die Texte einfacher kopieren kann
Ungefähr verstanden? Also eigentlich ist das alles noch ein bischen komplizierter aber ich habs gekürzt.

Lannes · Verfasst: Do 26.10.06 23:40

Hallo,

>>
1. nicht markieren:

markieren

Delphi-Quelltext

1:	Clipboard.AsText := Webbrowser1.OleObject.Document.documentElement.innerTEXT;

2. markieren:

markieren

Delphi-Quelltext

1:
2:

WebBrowser1.OleObject.document.execCommand('SelectAll', false,0);
Clipboard.AsText := Webbrowser1.OleObject.Document.Selection.createRange.Text;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Ehemaliges Mitglied Erhaltene Danke: 1

Ah ... danke ..so ist es noch viel besser!
So jetzt kann ich endlich ins Bett gehen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme