Neues in der Zwischenablage?

[Union]

So funktioniert es:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  procedure WMDrawClipBoard(var Message : TMsg); Message WM_DRAWCLIPBOARD;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMDrawClipBoard(var Message: TMsg);
begin
   ShowMessage('Clipboard geändert');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   SetClipBoardViewer(handle);
end;

Wichtig ist der Aufruf von SetClipBoardViewer, damit das Fenster die Nachricht erhält.