Könnte Ihr mir auch noch sagen, warum ich zwar einzelne Zeichen aber nciht ein ganzes Wort aus einem Stringgrid über ein Richedit-Feld mit der folgenen zeile aus dem Zwischenspeicher senden kann:

h := GetFocusedControl;
SeekRecord(stringgrid1,[1],[edit1.text]);
richedit1.Text:= stringgrid1.Cells[0,stringgrid1.row];
K:=length(richedit1.text);
richedit1.SelectAll;
richedit1.CopyToClipboard;

PostMessage(hwnd,wm_paste,length(richedit1.text),0 );

Der inhalt des richtedit-Feldes ladet im Zwischenspeicher und ich kann ihn mittels STRG+G manuel ins Fenster kopieren. das geht abernicht für folgenden Befehl

PostMessage(hwnd,wm_paste,length(richedit1.text),0 );

automatisch. Hat jemand eine Lösung??

Versuche es so:

markieren

Code:

PostMessage(hwnd, wm_paste, [color=#ff0000]0[/color], 0);

oder mal mit SendMessage an Stelle von PostMessage.

geht leider auch nicht ....


in der zwischenablage ist die Zeile vorhanden, sie wird nur nicht eingefügt ...

Och das geht schon, Vorraussetzung ist das das Handle des Fensters siimmt wo es dann hin soll.

Ein paar Änderungen könnten vielleicht helfen:

markieren

Delphi-Quellcode:

begin
  h := GetFocusedControl;
  SeekRecord(StringGrid1, [1], [Edit1.Text]);
  ClipBoard.AsText := StringGrid1.Cells[0, StringGrid1.Row];
  PostMessage(h, WM_PASTE, 0, 0);
end;

Grüße vom marabu

Ihr habts mal wieder geschafft, es funktioniert, nur nicht in MS-WORD
habt Ihr da noch einen Plan ??