点击浮动窗口呼叫其他FORM的问题(100分)

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #1

我做了一个类似NETANTS的浮动窗口
其他都无问题,
只是想在拖拽网址到此浮动窗口或点击此浮动窗口时
显示相应的FORM(FORM可能被其他的程序盖住)
现在点击此浮动窗口确实显示相应的FORM,用
form1.show
但当拖拽网址到此浮动窗口,同样用form1.show
此FORM却不显示

哪位老大帮,我多谢

 

S

sydanlong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #2

是否要求點擊Form1時顯示Form2呢
那麼請在Form1的OnActivate中調用Form2.SHow
如果行的話,請給我多一點分,我快死了

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #3

我说的是拖动网址到此浮动窗口,如果网址合理就呼叫其他窗口如FORM1
将其显示到前台

但是不要盖住浮动窗口.

现在,点击此浮动窗口没问题

答对多加50

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #4

那你能确定你的拖放过程正确响应了吗？

 

H

HD_Copy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #5

to 王峥：
我也比较同意shangshang，既然你现在点击浮动窗口可以呼出其他的Form，并且不覆盖浮动窗口本身。
那问题就出在拖放URL或者检查URL的部分了，再仔细检查一下你的代码吧，或者贴出来让大家帮你看看。
另外：DragAndDrop是非常优秀的拖放操作控件，功能强大，用起来方便，下载地址：
http://www.melander.dk（最好用3.07的，稳定）

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #6

对，要对拖放消息进行响应，当然也可以使用控件，楼上说的控件比较专业，也可用
其他的综合控件包中的，如LMD、BU等等都有：）

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #7

我是用DRAGDROP
1.没问题
procedure Tmybasket..FORMDblClick(Sender: TObject);
begin
form1.Show;

end;
2.有问题,FORM1不显示,必须再点击mybasket才显示
procedure Tmybasket.DropTextTarget1Drop(Sender: TObject;
ShiftState: TShiftState; Point: TPoint; var Effect: Integer);

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #8

2.有问题,FORM1不显示,必须再点击mybasket才显示
procedure Tmybasket.DropTextTarget1Drop(Sender: TObject;
ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
begin
form1.Show;

END;

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #9

我还是搞不懂你的意思。

试试用api吧。
showwindow(form1.handle,sw_normal);
希望我运气好。^_^

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #10

procedure Tmybasket.DropTextTarget1Drop(Sender: TObject;
ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
begin
form1.formstyle:=fsstayontop;
form1.Show;
END;

 

Q

Qiuliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #11

用 Form.BringToFront 试试。

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #12

shangshang, 还是不行啊

D影子D, 我也这末试过问题FORM1是显示了可也把mybasket盖住了

也许我说的不清楚


就是你拖网址到NETANTS的浮动窗口后它会弹出一个FORM,问题就是如何弹出
我也试了,FORM1.SHOW弹不出

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #13

form1.formstyle:=fsstayontop;
能弹出但也把也把mybasket盖住了

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #14

Form.BringToFront 也不行

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-23

• #15

那你可以设置显示窗体的位置!
如:
form1.top:=0;
form1.left:=0;
//反正不遮住就行！

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #16

这样太牵强了

[]

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #17

如果大的话你就做透明窗体，论坛里有例子的。[]

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #18

没人能解决[?]再加50

 

A

akaiwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #19

分数加了又加，很羡慕哦！但是我不会，学习学习！

 

王

王峥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #20

没人知道吗