Как перетащить из internet explorer ссылку в мою прогу? [D6, Win95/98]
да © (2002-11-18 20:23:00)
Люди, скажите мне пожалуйста,кто знает как перетащить из
internet explorer ссылку в мою прогу-listbox?
Кто ответит на мой вопрос правильно ,тому дам исходники этой
проги!
Almaz (2002-11-19 02:43:00) [1]
Например так:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
StdCtrls, ActiveX;
type
TDropTarget = class (TInterfacedObject, IDropTarget)
function DragEnter(const dataObj: IDataObject; grfKeyState:
Longint;
pt: TPoint; var dwEffect: Longint): HResult; stdcall;
function DragOver(grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
function DragLeave: HResult; stdcall;
function Drop(const dataObj: IDataObject; grfKeyState:
Longint; pt: TPoint;
var dwEffect: Longint): HResult; stdcall;
end;
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
DropTarget: TDropTarget;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function TDropTarget.DragEnter(const dataObj: IDataObject;
grfKeyState: Longint;
pt: TPoint; var dwEffect: Longint): HResult;
begin
Result := S_OK;
end;
function TDropTarget.DragOver(grfKeyState: Longint; pt:
TPoint;
var dwEffect: Longint): HResult;
begin
Result := S_OK;
end;
function TDropTarget.DragLeave: HResult;
begin
Result := S_OK;
end;
function TDropTarget.Drop(const dataObj: IDataObject;
grfKeyState: Longint; pt: TPoint;
var dwEffect: Longint): HResult;
var
Format: TFORMATETC;
Data: TSTGMEDIUM;
Buffer: PChar;
begin
with Format do
begin
cfFormat := CF_TEXT;
dwAspect := DVASPECT_CONTENT;
ptd := nil;
lindex := -1;
tymed := -1;
end;
Result := dataObj.GetData(Format, Data);
if (Result = S_OK) and (Data.tymed = TYMED_HGLOBAL) then
begin
Buffer := GlobalLock(Data.hGlobal);
Form1.Edit1.Text := Buffer;
GlobalFree(Data.hGlobal);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if OleInitialize(nil) = S_OK then
begin
DropTarget := TDropTarget.Create;
RegisterDragDrop(Handle, DropTarget as IDropTarget);
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
OleUninitialize;
end;
end.
Удачи.
Наверх 
ЧАТ |
Орешник |
|
