RichEdit PasteFromClipboard OS Error 50

[Hobbycoder]

Hi,
ich möchte gerne einen selektierten Text eines Richedit in ein anderes RichEdit einfügen.

Simpelster Weg erschien mir Copy&Paste.

Delphi-Quellcode:

      DestRTF.CopyToClipboard;
      redt_formattext.PasteFromClipboard;
      ShowMessage(SysErrorMessage(GetLastError));

Leider erhalte ich in der Zeile PasteFromClipboard immer OS Error 50 "Die Anforderung wird nicht unterstützt".

In einer früheren D7-Anwendung habe ich das mal so gemacht. Funktioniert wurderbar, allerdings was das damals ein TJvRichEdit. Jetzt will ich ein TRichEdit nehmen.
Unter 10.1 will das nicht funktionieren. Hat jemand eine Idee warum?

[himitsu]

Erstmal, GetLastError prüft man immer nur, wenn man weiß, dass es "soeben" einen Fehler gab, in dem WinAPI-Aufruf davor.
Du prüfst aber garnicht, ob es einen Fehler gab.

Der "Fehler" 5 kann also von irgendeiner anderen API gekommen sein, irgendwann vorher.

[Hobbycoder]

Okay,

aber so

Delphi-Quellcode:

      DestRTF.CopyToClipboard;
    if GetLastError<>ERROR_SUCCESS then
      ShowMessage('copyTo: '+SysErrorMessage(GetLastError));
      redt_formattext.PasteFromClipboard;
    if GetLastError<>ERROR_SUCCESS then
      ShowMessage('pasteFrom: '+SysErrorMessage(GetLastError));

wirft er mir obige Fehlermeldung ( 50 ) eben nur beim Paste raus. Zusätzlich höre ich das an dem Ping. Davor ist GetLastError = 0.

[himitsu]

Nochmal, GetLastError gibt nur den letzten Fehlercode an, aber ob es einen Fehler gab und somit in GetLastError überhaupt etwas drin steht, dass muß man anders rüfen!

Delphi-Quellcode:

//RichEdit1.PasteFromClipboard;
if SendMessage(RichEdit1.Handle, WM_PASTE, 0, 0) <> ... then
  RaiseLastOSError; //RaiseLastWin32Error;

Hmmm, Problem ist nur, dass WM_PASTE garkeinen Rückgabewert hat, mit dem man die erfogreiche Funktion testen könnte.

Delphi-Quellcode:

SetLastError(NO_ERROR);
RichEdit1.PasteFromClipboard;  //SendMessage(RichEdit1.Handle, WM_PASTE, 0, 0);
if GetLastError <> NO_ERROR then
  RaiseLastOSError; //RaiseLastWin32Error;

Aber ob hier überhaupt ein Fehlercode gesetzt wird und ob der Wert überhaupt von Bedeutung ist, dass ist 'ne andere Geschichte.
Laut Dokumentation nicht.

PS: Eventuell muss die Komponente den Eingabefokus besitzen, um das Copy/Paste verarbeiten zu können.

[Der schöne Günther]

Ich liebe Programme die mir meine Zwischenablage überschreiben

[Hobbycoder]

Zitat von Der schöne Günther:

Ich liebe Programme die mir meine Zwischenablage überschreiben

Damit hast du natürlich absolut recht.
Das gab mir den Anstoß nach einer anderen Möglichkeit zu suchen. Fündig geworden bin ich hier: http://www.delphipraxis.net/131280-post9.html

[p80286]

Zitat von Der schöne Günther:

Ich liebe Programme die mir meine Zwischenablage überschreiben

Ich meine mich zu erinnern, mal etwas von mehreren Seiten, der Zwischenablage gelesen zu haben, das war aber so unklar formuliert, daß ich in Zukunft die Finger davon gelassen habe.
Ist es also eine Frage der Information(en), ob die Zwischenablage überschrieben wird, oder kann es nur eine geben?

Gruß
K-H