Ole Drop, um Text aus belibiger Anwendung ins Memo zu ziehen

[Tonic1024]

Ich hab mir mal erlaub das Teil etwas aufzuarbeiten. Hatte Probleme unter D2k9 und dieser Ringverweis, wenn auch technisch okay, gefiel mir nicht.

Es sollte jetzt einfacher zu verstehen sein und unter Delphi 2009 und Neuer funktionieren. Es werden, ausser OLEDrop selbst, keine uses mehr benötigt. An der Technik ab ich nichts verändert - nur aufgeräumt.

Delphi-Quellcode:

// Vollständiger Quellcode
procedure TForm1.FormCreate(Sender: TObject);
begin
  OleDrop := TOleDrop.create(Panel1.Handle);
  OleDrop.OnTextDropped:=MemoDrop;
end;

procedure TForm1.MemoDrop(aText: PAnsiChar);
begin;
  Memo1.Text:=aText;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  OleDrop.Free;
end;

Download enthält die Unit, ein Demoprojekt und die EXE.

Gruß,

Toni