Hallo,
ich habe es vor langer Zeit mal so gelöst:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
clipbrd;
type
TForm1 =
class(TForm)
procedure FormDeactivate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormDeactivate(Sender: TObject);
begin
ClipBoard.Clear;
end;
end.
Der Inhalt des Memos wird zwar immer noch selektiert und in die Zwischenablage kopiert aber wenn das Formular deaktiviert wird, wird die Zwischenablage gelöscht.
Das Formular wird deaktiviert wenn der Anwender zu einer anderen Anwendung wechselt, um
den Inhalt der Zwischenablage einzufügen.