클립보드 이벤트 사용하기

클립보드 추가하는 법 -> 2019/07/22 - [ - Delphi] - 간단하게 클립보드 사용하기 참조

TForm1 = class(TForm)
  ..
  procedure FormCreate(Sender: TObject);
public
  hViewr : THandle;
  procedure DrawClipboardEvent(var Msg: TMessage); message WM_DRAWCLIPBOARD;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  hViewr := Self.Handle;
  SetClipboardViewer(hViewr); //프로그램에서 클립보드 이벤트를 받을 수 있도록 합니다.
end;

//클립보드에 Item이 추가됐을 때 이벤트 발생
procedure TForm1.DrawClipboardEvent(var Msg: TMessage);
begin
  { To do }
end;