如何将一个已经打开的窗口自动显示在屏幕窗口最上面？

[yeah_116]

如题。

[yeah_116]

还是不行，我说的是如同在任务栏中点击图标，进行进程切换一样。

[ag1978]

f.Active()

[yeah_116]

f.Active(),也不行，我试过了。

[捏造的信仰]

me.topmost=true

[delphi6net]

同上

[_jfeng]

应该不是楼上的意思，是top=0的效果，但是好像不能控制已打开的窗体重绘

[kl520]

可以把Form的ToMost属性设置为TRUE；
或
用API函数：
Private Const GWL_HWNDPARENT As Short = (-8)
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer

在Form1里
dim frm as new Form2
SetWindowLong(frm.Handle.ToInt32, GWL_HWNDPARENT, Me.Handle.ToInt32)