Form1

[Max!]

Моя форма поверх всех окон ! Например запускаешь любую игру или что-то в этом роде , прога остаётся поверх этого окна , но когда кликаеш мышкай по нему то всё сворачивается и мы попадаем опять в виндовс !! Как этого избежать ?

[Ennor]

Не кликай по нему...

[Amed]

Я хотел сказать то же самое

А что на форме? Просто текст или на ней ещё всякие кнопочки, которые можно (нужно) нажимать?

[EvilCoder]

<DELETED>

[Amed]

Нет. Это он и так сделал...

Ну ладно, скажу. Если на форме ничего жать не надо, а только выводится какая-нибудь писанина, то можно показывать не саму форму, а рисовать (BitBlt) прямо на экране (GetDC(0)). Если надо что-то жать, то уже сложнее...

[Max!]

Нет на форме один Image1 , я обрезаю форму по контуру Image1 и ставлю поверх всех окон ! Точнее можешь про (BitBlt) !

[Max!]

Help Please !!! Ну невыходит у меня !!!

[Amed]

Можешь кинуть программу сюда? А то я, боюсь, сделаю не то, что надо.

А вообще надо так по идее: копируешь изображение с Form1.hdc на GetDC(0). Можно не BitBlt, а TransparentBlt, чтобы были прозрачные участки.

[Max!]

Вот лави

[Max!]

HELLLPPP!

[Max!]

Не ну ктонить плиз ! Имхо это срочно !!!!

[Max!]

Есть ещё вопросс ! А если ресовать на экране только картинку а не форму ! (Из Имаджа1 дапустим) Это Срочно !!!

[Max!]

У меня уже пена пошла , так бесит

[Amed]

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

Option Explicit
Private Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal crTransparent As Long) As Boolean
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Width = picPic.Width / 16
Height = picPic.Height / 16
End Sub

Private Sub tmrDraw_Timer()
TransparentBlt GetDC(0), 500, 500, Width, Height, picPic.hdc, 0, 0, Width, Height, RGB(255, 255, 255)
End Sub


[Amed]

Прозрачный цвет на картинке - белый.

На форме пикчер picPic с картинкой, у формы Visible=False.

[Max!]

Странно он у меня выводит то что под формой ! Например если я форму поставлю в левый верхний угол то посередине он мне показывает то что в углу ! Может что-то напутал Amed

[Amed]

У формы Visible=False. У меня всё нормально показывает. В точке с координатами (500,500) пикселей рисуется картинка.

Кстати, у таймера какой интервал стоит? Я 50 ставил на всякий случай...

[Max!]

Странно а у меня как камера работает отображает в маленьком окошке всё что происходит под формой ! Он не ресует картинку из пиктербокса на экран ! А если она не одна а 4 как в том маём примере ! (Обязательно чтоб так были расставлены ! ) Может чёнить другое надо придумать !

[Max!]

Вот посматри что нетак

[Amed]

Что-то я не пойму... Твой пример не работает, мой - работает )

[Max!]

Так кинь свой сюды ! Plz Я же говорю что что-то не так тут !

[Amed]

У меня всё точно такое же было! И свойства формы, и код вообще.

З.Ы. Я удалил уже проект

И комп сменил, сейчас уже не могу кинуть

З.З.Ы. Может, кто ещё протестит?

[Max!]

Сейчас пена пойдёт !!!!!

[Amed]

Блин, извини, не могу задержаться

Уже убегаю совсем

[_Мика_]

AutoRedraw=true поставь на пикчуре

[Max!]

фаа фаф аф !! Ану нефигасибе работает !!!!! Всем огромное спосибо кто мне помогал !!!! Респект !!!!!!

[Max!]

Опа-па вот чё наблюдается ! Запускаю прогу Ура вроде как всё работает
НО !! спустя пару менут её страшно переглючивает выкидывет ерор и всё
номер ("53" - File not found !) К чему это он ругается ?

[Max!]

Кто подскажет в чём проблема !(топик выше)

[A.A.Z.]

Специально минуть десять работал с этой ерундой, никакой ошибки не было

[_Мика_]

У меня тоже