Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c