Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Надо перехватить сообщение о копировании в буфер обмена от любого приложения. 


lipskiy   (2002-03-24 00:54) [0]

Пример, аналогичный FAQ, не работает. Что здесь не так?

type
TForm1 = class(TForm)
private
procedure WMCOPY(var Message: TMessage);
message WM_COPY;
public
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.WMCOPY(var Message: TMessage);
begin
beep;
end;



MBo   (2002-03-24 09:24) [1]

вот кривой пример как отправная точка.
посмотри в SDK Help эти функции
а также WM_CHANGECBCHAIN и т.д.
и разберись, это нетрудно.

TForm1...
procedure CLPChanged(var Msg : TMessage);message WM_DRAWCLIPBOARD;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetClipboardViewer(handle);
end;

procedure TForm1.CLPChanged(var msg: TMessage);
var CBF:Cardinal;
begin
OpenClipBoard(0);
memo1.clear;
CBF:=0;
repeat
CBF:=EnumClipboardFormats(CBF);
if CBF<>0 then
Memo1.Lines.Add(Inttostr(CBF));
until CBF=0;
label1.caption:="CLP FormatCount "+inttostr(CountClipboardFormats);
CloseClipBoard;
end;



lipskiy   (2002-03-24 16:13) [2]

Спасибо, буду разбираться.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.019 c
4-9683            Basaev                2002-02-03 03:52  2002.04.04  
Как закрыт другую програму из своей


3-9395            Nest                  2002-03-12 11:10  2002.04.04  
DBISortTable: сортировка по нескольким полям.


3-9372            Valentin2             2002-03-11 11:16  2002.04.04  
Здравствуйте, уважаемые коллеги!


1-9495            BlackJack             2002-03-20 21:02  2002.04.04  
Необходимо разобраться с DrawGrid-ом.


14-9600           Сергей Иванов         2002-02-21 10:56  2002.04.04  
Эльбрус Бабаяна и Pentium Пентковского