示例:这里给出了使用uDragDropOLE的关键代码。
interface
uses uDragDropOLE;
type
TDlgDragDrop = class(TForm)
...
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
DragAndDropOLE:TDragAndDropOLE;
procedure DropText(Sender: Tobject; DragText: string);
end;
implementation
procedure TDlgDragDrop.FormCreate(Sender: TObject);
begin
OleInitialize(nil);
DragAndDropOLE:=TDragAndDropOLE.Create(self);
DragAndDropOLE.OnShellDragDrop:=DropText;
end;
procedure TDlgDragDrop.FormDestroy(Sender: TObject);
begin
DragAndDropOLE.Free;
OleUninitialize;
end;
procedure TDlgDragDrop.DropText(Sender: Tobject; DragText: string);
begin
showmessage(DragText);
//拖放来的文本的具体出来代码
end;
上一页12下一页