Несворачиваемая, дырявая форма

@compuser · Регистрация: 18.03.2011

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

Нужно сделать форму, которая:
1) не сворачивалась кнопкой "свернуть все окна" или клавишами Win+D;
2) она была прозрачной и "дырявой", т.е. через неё можно было бы нажимать мышкой для работы с другими программами.
P.S. Желательно конечно если привидете код программы.

@PB · 18.03.2011, 19:31

Нужно что-то типа того что во вложении?

@compuser · 21.03.2011, 09:56 **[ТС]**

PB, да что-то типо этого. А картинку можно любую вставить в эту форму или только рисование по координатам? Код можно данной формы?

@PB · 21.03.2011, 15:13

Там обычная полупрозрачная форма с немного модифицированным стилем, как подсказали здесь.

@compuser · 21.03.2011, 15:20 **[ТС]**

PB, ну всё-таки выложите исходник пжста.

@PB · 21.03.2011, 15:24

Сообщение от compuser

выложите исохдник

Иходник на бейсике. Думаю по размеру исполняемого файла можно было догодатся что это не дельфи.
Я просто хотел уточнить такая ли нужна форма или нет.

Исходник

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Procedure Draw(Image) ; Рисование кругов на форме
 If CreateImage(Image,200,200) And StartDrawing(ImageOutput(Image))
   x = 100
   y = 100
   For Radius = 100 To 10 Step -10
      Circle(x, y, radius ,RGB(Random(255),Random(255),Random(255)))
   Next
   StopDrawing()
   SetGadgetState(Image, ImageID(Image))
 EndIf
EndProcedure
 
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_BorderLess|#PB_Window_ScreenCentered) 
  StickyWindow(0,1)
  SetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE,GetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE) | #WS_EX_LAYERED|#WS_EX_TRANSPARENT|#WS_EX_TOPMOST) 
  SetLayeredWindowAttributes_(WindowID(0), 0, 120, #LWA_ALPHA)
  ImageGadget(2,100,10,200,200,0)
  Draw(2)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf

@compuser · 21.03.2011, 15:26 **[ТС]**

Сообщение от PB

Иходник на бейсике. Думаю по размеру исполняемого файла можно было догодатся что это не дельфи.
Я просто хотел уточнить такая ли нужна форма или нет.

Исходник

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Procedure Draw(Image) ; Рисование кругов на форме
 If CreateImage(Image,200,200) And StartDrawing(ImageOutput(Image))
   x = 100
   y = 100
   For Radius = 100 To 10 Step -10
      Circle(x, y, radius ,RGB(Random(255),Random(255),Random(255)))
   Next
   StopDrawing()
   SetGadgetState(Image, ImageID(Image))
 EndIf
EndProcedure
 
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_BorderLess|#PB_Window_ScreenCentered) 
  StickyWindow(0,1)
  SetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE,GetWindowLongPtr_(WindowID(0),#GWL_EXSTYLE) | #WS_EX_LAYERED|#WS_EX_TRANSPARENT|#WS_EX_TOPMOST) 
  SetLayeredWindowAttributes_(WindowID(0), 0, 120, #LWA_ALPHA)
  ImageGadget(2,100,10,200,200,0)
  Draw(2)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf

ну это на бейсике...а нужно на делфи

@PB · 21.03.2011, 15:29

Сообщение от compuser

ну это на бейсике...а нужно на делфи

Выше ведь давал ссыку на код

Delphi
1
SetWindowLong(Self.Handle, GWL_EXSTYLE, WS_EX_TRANSPARENT or WS_EX_LAYERED)

и будет форма, прозрачная для кликов мышкой.

@anonimus · 21.03.2011, 15:34

Сообщение от PB

и будет форма, прозрачная для кликов мышкой

но она будет сворачиваться

Добавлено через 18 секунд
а у тебя она не сворачивается, как это сделал?

@compuser · 21.03.2011, 15:35 **[ТС]**

PB, а приведенный вами пример для какого именно бейсика?

@PB · 21.03.2011, 15:41

Сообщение от compuser

а приведенный вами пример для какого именно бейсика?

Для PureBasic.

Добавлено через 46 секунд

Сообщение от anonimus

но она будет сворачиваться
Добавлено через 18 секунд
а у тебя она не сворачивается, как это сделал?

Установил поверх всех окон.

@anonimus · 21.03.2011, 15:43

Установил поверх всех окон

и все? в делфи это не прокатит

@PB · 21.03.2011, 15:44

Сообщение от anonimus

и все? в делфи это не прокатит

Я ведь код программы выложил.
Смотри как он устроен.

@anonimus · 21.03.2011, 15:52

PB, OpenWindow и StickyWindow это бейсика функция? или winapi?

Добавлено через 50 секунд

Сообщение от PB

Я ведь код программы выложил.

ага привел, в разделе делфи на бейсике

@PB · 21.03.2011, 16:01

Сообщение от anonimus

OpenWindow и StickyWindow это бейсика функция? или winapi?

Да из бейсика.
Перая просто создает окно (форму), а вторая? устанавливает указанное окно поверх других окон.
Ее можно заменить на WinAPI аналог

Delphi
1
SetWindowPos(WindowID, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)

Сообщение от anonimus

ага привел, в разделе делфи на бейсике

Меня compuser попросил

@anonimus · 21.03.2011, 16:21

Ее можно заменить на WinAPI аналог

вот не надо, я не знаю как там работает OpenWindow , но это
SetWindowPos (Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
не защищает от сворачивания, оно просто ставит окно поверх остальных, ради такого не стоит обращаться к winapi достаточно сделать так

Delphi
1
FormStyle:=fsStayOnTop;

параметры у OpenWindow
#PB_Window_BorderLess - убирает рамку
#PB_Window_ScreenCentered - центрует
так?

@PB · 21.03.2011, 16:31

Сообщение от anonimus

параметры у OpenWindow
#PB_Window_BorderLess - убирает рамку
#PB_Window_ScreenCentered - центрует
так?

Да.
Вот описание функции http://purebasic.ru/manual.php?id=1354&lng=rus

@PB · 21.03.2011, 16:48

Не думаю что стоит копаться в функции OpenWindow.
Окно созданное полностью на WinAPI, тоже не сворачивается.

Исходник

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Procedure WindowCallback(Window, Message, wParam, lParam) 
  Select Message 
    Case #WM_CLOSE 
      DestroyWindow_(Window) 
    Case #WM_DESTROY 
      PostQuitMessage_(0) 
      Result  = 0 
    Default 
      Result  = DefWindowProc_(Window, Message, wParam, lParam) 
  EndSelect 
  ProcedureReturn Result 
EndProcedure 
 
InitCommonControls_()
#Style  = #WS_VISIBLE | #WS_SYSMENU
#StyleEx  = #WS_EX_TOPMOST
 
WindowClass.s  = "MyWin" 
wc.WNDCLASSEX 
wc\cbsize  = SizeOf(WNDCLASSEX) 
wc\lpfnWndProc  = @WindowCallback() 
wc\hCursor  = LoadCursor_(0, #IDC_ARROW)
wc\hbrBackground  = #COLOR_WINDOW
wc\lpszClassName  = @WindowClass 
RegisterClassEx_(@wc) 
 
hWndMain  = CreateWindowEx_(#StyleEx, WindowClass, "Test-Window", #Style, 100, 100, 200, 200, 0, 0, 0, 0) 
ShowWindow_(hWndMain,  #SW_SHOWDEFAULT) 
UpdateWindow_(hWndMain); 
 
While GetMessage_(msg.MSG, #Null, 0, 0 ) 
  TranslateMessage_(msg) 
  DispatchMessage_(msg) 
Wend

Исполняемый файл для проверки, во вложении.

@anonimus · 21.03.2011, 16:52

был бы код на delphi, а так нет желание копаться в незнакомом синтаксисе, пусть автор темы разбирается

@PB · 21.03.2011, 16:55

Не по теме:

Сообщение от anonimus

нет желание копаться в незнакомом синтаксисе

WinAPI оно и в Африке WinAPI.

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

@compuser 0 / 0 / 0 Регистрация: 18.03.2011 Сообщений: 15

	Несворачиваемая, дырявая форма 18.03.2011, 12:43. Показов 5706. Ответов 38 Метки нет (Все метки) Нужно сделать форму, которая: 1) не сворачивалась кнопкой "свернуть все окна" или клавишами Win+D; 2) она была прозрачной и "дырявой", т.е. через неё можно было бы нажимать мышкой для работы с другими программами. P.S. Желательно конечно если привидете код программы. 0

@compuser 0 / 0 / 0 Регистрация: 18.03.2011 Сообщений: 15
	21.03.2011, 09:56 [ТС]
	PB, да что-то типо этого. А картинку можно любую вставить в эту форму или только рисование по координатам? Код можно данной формы? 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	21.03.2011, 15:13
	Там обычная полупрозрачная форма с немного модифицированным стилем, как подсказали здесь. 0

@compuser 0 / 0 / 0 Регистрация: 18.03.2011 Сообщений: 15
	21.03.2011, 15:20 [ТС]
	PB, ну всё-таки выложите исходник пжста. 0

@compuser 0 / 0 / 0 Регистрация: 18.03.2011 Сообщений: 15
	21.03.2011, 15:35 [ТС]
	PB, а приведенный вами пример для какого именно бейсика? 0

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	21.03.2011, 16:52
	был бы код на delphi, а так нет желание копаться в незнакомом синтаксисе, пусть автор темы разбирается 0