unit clpbrdunit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Clipbrd;
type
{ TClpbrdForm }
TClpbrdForm = class(TForm)
Memo: TMemo;
procedure FormCreate(Sender: TObject);
procedure ClipboardChanged;
private
public
end;
var
ClpbrdForm: TClpbrdForm;
implementation
{$R *.lfm}
{ TClpbrdForm }
procedure TClpbrdForm.FormCreate(Sender: TObject);
begin
Memo.PasteFromClipboard;
Clipbrd.dataChanged := @ClipboardChanged;
end;
procedure TClpbrdForm.ClipboardChanged;
begin
Memo.PasteFromClipboard;
end;
end.