Как поместить мою программку по "верх" окон ?

@Большой Грызли · Регистрация: 10.02.2009

Author24 — интернет-сервис помощи студентам

Доброго всем времени суток !!!
Помогите пожалуйста чайнику ... нужно чтоб моя програмка (окно програмки) распологалось по верх других окон ...что называется Always on Top. Заранее благодарю !!!!!!

26.10.2009, 17:52

Тебе нужна API-функция SetWindowPos.

@Большой Грызли · 27.10.2009, 17:12 **[ТС]**

Спасибо за совет !!! Сейчас начал копать API функции!!! надеюсь разберусь ...

@Alakc · 28.10.2009, 00:14

Че ты будешь мучаться

)
В General Declarations вставь:
'---------------------------------------
Private Declare Function SetWindowPos Lib'user32'(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
'---------------------------------------

Потом в событие Load:
'---------------------------------------
' Окно OnTop
SetWindowPos Me.hWnd, -1, _
Me.Left / Screen.TwipsPerPixelX, _
Me.Top / Screen.TwipsPerPixelY, _
Me.Width / Screen.TwipsPerPixelX, _
Me.Height / Screen.TwipsPerPixelY, _
&H10 Or &H40
'---------------------------------------

Это можно и выключить:
'---------------------------------------
SetWindowPos Me.hWnd, -2, _
Me.Left / Screen.TwipsPerPixelX, _
Me.Top / Screen.TwipsPerPixelY, _
Me.Width / Screen.TwipsPerPixelX, _
Me.Height / Screen.TwipsPerPixelY, _
&H10 Or &H40
'---------------------------------------

@Большой Грызли · 28.10.2009, 18:09 **[ТС]**

Огромное спасибо !!!!!! Все работает !!!

@Большой Грызли 0 / 0 / 0 Регистрация: 10.02.2009 Сообщений: 6
		1
	Как поместить мою программку по "верх" окон ? 26.10.2009, 14:15. Показов 770. Ответов 4 Метки нет (Все метки) Доброго всем времени суток !!! Помогите пожалуйста чайнику ... нужно чтоб моя програмка (окно програмки) распологалось по верх других окон ...что называется Always on Top. Заранее благодарю !!!!!! 0

Comanche
	26.10.2009, 17:52	2
	Тебе нужна API-функция SetWindowPos.

@Большой Грызли 0 / 0 / 0 Регистрация: 10.02.2009 Сообщений: 6
	27.10.2009, 17:12 [ТС]	3
	Спасибо за совет !!! Сейчас начал копать API функции!!! надеюсь разберусь ... 0

@Alakc 0 / 0 / 0 Регистрация: 24.06.2009 Сообщений: 8
	28.10.2009, 00:14	4
	Че ты будешь мучаться ) В General Declarations вставь: '--------------------------------------- Private Declare Function SetWindowPos Lib'user32'(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 '--------------------------------------- Потом в событие Load: '--------------------------------------- ' Окно OnTop SetWindowPos Me.hWnd, -1, _ Me.Left / Screen.TwipsPerPixelX, _ Me.Top / Screen.TwipsPerPixelY, _ Me.Width / Screen.TwipsPerPixelX, _ Me.Height / Screen.TwipsPerPixelY, _ &H10 Or &H40 '--------------------------------------- Это можно и выключить: '--------------------------------------- SetWindowPos Me.hWnd, -2, _ Me.Left / Screen.TwipsPerPixelX, _ Me.Top / Screen.TwipsPerPixelY, _ Me.Width / Screen.TwipsPerPixelX, _ Me.Height / Screen.TwipsPerPixelY, _ &H10 Or &H40 '--------------------------------------- 0

@Большой Грызли 0 / 0 / 0 Регистрация: 10.02.2009 Сообщений: 6
	28.10.2009, 18:09 [ТС]	5
	Огромное спасибо !!!!!! Все работает !!! 0

Опции темы