Поверх окна

[13GHOST]

Можно ли вывести окно чтобы оно всегда было поверх другого окна, зная его hwnd ? заранее спасибо

[keks-n]

HWND_TOPMOST? SetParent?

[DirectXManiac]

Код: Выделить всё


Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Sub ToggleTop()
Dim flags As Long

flags = SWP_NOSIZE Or SWP_DRAWFRAME
SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 1, 1, flags)
End Sub


Ставишь процедуру ToggleTop в событие Form_Load()

[tyomitch]

DirectXManiac, ты понимаешь, в чём разница между "поверх другого" и "поверх всех"?

[DirectXManiac]

Я делаю всегда так, а вообще SetParent...

[13GHOST]

при использовании setparent эффект получается как "окно в окне" а мне надо как например при: form1.show ,me

[Naked]

SetWindowLong hwnd1, GWL_HWNDPARENT, hwnd2

[13GHOST]

это подходит.... большое спасибо

[Ruslan Demidow]

Можно ещё и frmForm1.Show, me, vbModeless

[keks-n]

Можно ли вывести окно чтобы оно всегда было поверх другого окна, зная его hwnd ?

Автор топика явно указал, что есть только hWnd. О том что есть ссылка на форму, и что это вообще VB'шное окно не сказано ни слова.
Это во-первых. А во-вторых у нас тут не масмовский invoke, и замятую после Show ставить не надо.