刚找到的,不知道有用吗?
自己一个拖动窗口,然后使用DragDrop(DELPHI天空的COOL构件中就有:
http://delphi.yesite.com)组件中的DROPURL来实现URL地址的拖动。另外还应该注意。在拖
动窗口中加上如下的代码。
{public
{ Public declarations }
procedure CreateParams(var Params:TCreateParams);override;}
rocedure TForm3.CreateParams(var Params:TCreateParams);
begin
inherited;
with Params do
begin
Style:=Params.Style xor WS_DLGFRAME;
WndParent:=0;//此行
end;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
Width:=36;
Height:=36;
SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
以使拖动窗口彻底不受主窗口的摆布