Zwischenspeicher in aktives Fenster speichern

[marabu]

Ein paar Änderungen könnten vielleicht helfen:

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