Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Как мне узнать, что в буффер попал текст?   Найти похожие ветки 

 
Vulko ©   (2003-12-29 00:38) [0]

Как мне узнать, что в буффер попал текст, ну это даже не важно что, просто хотелось бы при копировании в буффер скопировать оттуда инфу в Мемо. Не предлагайте вариант с таймером и проверкой содержимого - меня интересует вариант с TMessage.


 
Slym ©   (2003-12-29 05:04) [1]

type
TClipboardFr = class(TForm)
Memo1: TMemo;
private
PrevWindow:Longint;
procedure WMCHANGECBCHAIN(var Message: TMessage); message WM_CHANGECBCHAIN;
procedure WMDRAWCLIPBOARD(var Message: TMessage); message WM_DRAWCLIPBOARD;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
....

constructor TClipboardFr.Create(AOwner: TComponent);
PrevWindow:=SetClipboardViewer(Handle);
end;

destructor TClipboardFr.Destroy;
begin
ChangeClipboardChain(Handle,PrevWindow);
inherited;
end;

procedure TClipboardFr.WMCHANGECBCHAIN(var Message: TMessage);
begin
Message.Result:=SendMessage(PrevWindow,Message.Msg,Message.WParam,Message.LParam);
end;

procedure TClipboardFr.WMDRAWCLIPBOARD(var Message: TMessage);
begin
try
if Clipboard.HasFormat(CF_TEXT) then
Memo1.Lines.Text:=Clipboard.AsText;
finally
Message.Result:=SendMessage(PrevWindow,Message.Msg,Message.WParam,Message.LParam);
end;
end;


 
Slym ©   (2003-12-29 05:05) [2]

inherited; в Create засунь


 
Vulko ©   (2003-12-29 13:34) [3]

Спс огромное - сейчас попробую.



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
14-12512
Style
2004-02-11 13:00
2004.03.05
Вопрос по TWinControl


1-12329
Cardinal
2004-02-22 21:23
2004.03.05
Контекстное меню


1-12439
Алексей
2004-02-25 12:50
2004.03.05
ввод числа форматированный, извращённый. как??


3-12281
Мыш
2004-02-06 20:41
2004.03.05
удаление? записей из запроса


6-12478
Michael_X
2003-12-29 13:48
2004.03.05
Сырые сокеты в WinXP