paste abfangen

[eyeless]

hallo,

kann mir jemand sagen, wie ich strg+v und linxklick-einfügen bei einem tedit abfangen und abändern kann?

habs mit erst TApplicationEvents und dann mit einer eigenen routine:

hier mal der code:

Delphi-Quellcode:

//eigene routine (iss jez für alle paste-vorgänge ...)
//declaration:
procedure WMPASTEFTPURL(var Msg: TMessage); message WM_PASTE;

procedure TfClient.WMPASTEFTPURL(var Msg: TMessage);
var
  buffer : PChar;
  s : string;
begin
 showmessage('paste');
 try
  buffer := StrAlloc(msg.WParam+1);
  GlobalGetAtomName(Msg.lParam, Buffer, Msg.wParam + 1);
  S := StrPas(Buffer);
 finally
  StrDispose(buffer);
  showmessage(s);
 end;
end;

//ODER: per TApplicationEvents

procedure TfClient.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  buffer : PChar;
  s : string;
begin
if msg.message = WM_PASTE then
 begin
 showmessage('paste');
 try
  buffer := StrAlloc(msg.WParam+1);
  GlobalGetAtomName(Msg.lParam, Buffer, Msg.wParam + 1);
  S := StrPas(Buffer);
 finally
  StrDispose(buffer);
  showmessage(s);
 end;
 end;
end;

nur leider passiert bei beiden garnix .. was mach ich falsch?

mfg, eyeless