Как узнать что в содержимое буфера обмена добавилось что либо?

Posted by maloy under Delphi, Архив

zotox

Как узнать что в содержимое буфера обмена добавилось что либо?

Greblin

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    hwndNextViewer: THandle;
    procedure WMChangeCbChain(var Message: TWMChangeCBChain); message WM_CHANGECBCHAIN;
    procedure WMDrawClipboard(var Message: TMessage); message WM_DRAWCLIPBOARD;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hwndNextViewer := SetClipboardViewer(Handle);
Memo1.Lines.Clear
end;

procedure TForm1.WMChangeCbChain(var Message: TWMChangeCBChain);
begin
with Message do
begin
   // If the next window is closing, repair the chain.
   if Remove = hwndNextViewer then
     hwndNextViewer := Next
   // Otherwise, pass the message to the next link.
   else
     if hwndNextViewer <> 0 then
       SendMessage(hwndNextViewer, Msg, Remove, Next);
end;
end;

// clipboard contents changed.
procedure TForm1.WMDrawClipboard(var Message: TMessage);
begin
// Pass the message to the next window in clipboard
// viewer chain.
Memo1.Lines.Add('Сhanged');
with Message do
   SendMessage(hwndNextViewer, Msg, WParam, LParam);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ChangeClipboardChain(Handle, hwndNextViewer);
end;

end.

тема на форуме от 2009 года

Похожие статьи

• Контроль буфера обмена
• Отредактировать строку в буфере обмена (RAD 10.4)
• Передача в буфер обмена переменной с помощью JavaScript
• Чтение из буфера обмена результата cmd
• Вставить картинку в excel из буфера обмена
• Как скопировать текст в буфер обмена Mac OS X?
• Как создавать метафайл и объекты Graphics, чтобы можно было передать в буфер обмена
• Скопировать из ListView в буфер обмена
• Как создать переменную и использовать ее из буфера обмена
• Как можно сделать чтобы текст из memo по таймеру добавлялся в буфер обмена?