关于融入技术(10分)

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #1

if form2 = nil then
form2 := Tform2.Create(Application);
form2.ManualDock(Panel1);
form2.Show;

如何取得Panel1中的当前激活的Form的Handle?

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #2

就是取得什么form的handle？

 

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #3

因为Panel1中有可能有几个融入的窗口，我只要取显示在最前面的窗口的Handle.

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-23

• #4

GetActiveWindow();

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #5

DockClientCount 可以取得所有Dock的Control，DockClients可以访问每一个。
但是，如何得到最上面的，没找到，我Dock了两个控件，一个是窗体，一个是Button，它给我并列排布了，没办法区分哪一个是上面的呀。
实验一下VisibleDockClientCount，也许有用

 

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-24

• #6

我Dock了两个窗口，无论我是激活第一个窗口还是第二个窗口，VisibleDockClientCount的值是2。

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-25

• #7

1、用一下GetTopWindow试一下。
var
TheWindow: HWND;
begin
TheWindow:=GetTopWindow(Panel1.Handle);
2、你可以用类型信息，简单的说用Sender来判断是哪个呀。
3、DockClientCount 可以取得所有Dock的Control，对于Control进行判断

 

L

landina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-25

• #8

接受答案了.