Monitor the changes of clipboard’s content



USES
Windows, Forms, Clipbrd;
TYPE
TForm1 = CLASS(TForm)
Image1: TImage;
PROCEDURE FormCreate(Sender: TObject);
PUBLIC
PROCEDURE WMDrawClipboard(VAR Msg: TWMDrawClipBoard); MESSAGE WM_DRAWCLIPBOARD
;
END;




PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
SetClipboardViewer(Handle);
END;

PROCEDURE TForm1.WMDrawClipboard(VAR Msg: TWMDrawClipBoard);
BEGIN
IF Clipboard.HasFormat(CF_BITMAP) THEN
Image1.Picture.Assign(Clipboard);
END;