Clipboard

[Nisbo]

Moin Moin,

ich mal wieder, hoffe es nervt nicht allzu doll

Folgendes Problem, da ic ja gerade mit meiner Icongeschichte nicht weiterkomme wollte ich am Editorbereich weiterbasteln und den Inhalt von Memo2 in die Zwischenablage kopieren, allerdings will das nicht so richtig

Delphi-Quellcode:

     if ClipBoard.HasFormat(CF_TEXT) then  Showmessage('Text!'); // nur zum testen
     
     Memo2.SetFocus;
     Memo2.SelectAll;
     Memo2.CopyToClipBoard;
     
     ClipBoard.AsText := Memo2.Text;

Set.Focus und SelectAll funktioniert ohne Probleme, nur in die Zwischenablage wird nichts eingefügt, allerdings wird die Zwischenablage überschrieben wenn vorher was drinn war

was habe ich denn jetzt falsch gemacht ?