Заголовок формы на кнопке в панели задач

[timsoft]

Можно ли не имея заголовка на самой форме добиться того, что-бы на кнопке в панели задач все-таки было написано название проги?

у меня получается так сделать, только если BorderStyle стоит None
Но хотелось бы сотворить такое с типом Sizable...

[ZlydenGL]

А в свойстве формы ShowInTaskBar что прописано?

А вообще - тебе сюда (мой топик, по схожей проблеме). Если уж не найдешь там решения... Значит, скорее всего не судьба

[timsoft]

А в свойстве формы ShowInTaskBar что прописано?

прописано ессно True, кнопка на панели есть но без названия
как только добавляю form.caption = "блаблабла" тут же на форме вылазит сам заголовок, а он мне не нужен

[alibek]

True естественно.

Тебе нужно, чтобы в Caption было одно, а на кнопке другое? Или ты хочешь, чтобы у тебя окно было с рамкой и без заголовка?

[timsoft]

True естественно.

Тебе нужно, чтобы в Caption было одно, а на кнопке другое? Или ты хочешь, чтобы у тебя окно было с рамкой и без заголовка?

мне нужно окно с рамкой без заголовка (все кнопки minimize, maximize и т.д. я рисую свои типа скина), но при этом хочу чтоб на кнопке в панели задач вылазило название проги

см. скриншот

[ZlydenGL]

Понял!!! Тебе на App.Title!!! Вроде бы должно помочь...

Мужики, мне уже никто не поможет? Я про свой топик, естессно...

[timsoft]

Понял!!! Тебе на App.Title!!! Вроде бы должно помочь...

да не, app.title = "Project1"
он нигде ведь на экране не появляется, кроме как в заголовках MsgBox по дефолту...

[alibek]

Завтра надо будет подумать.
Пока два варианта:
1. Создать невидимое окно с требуемым Caption; оно будет использоваться для текста на кнопки. Окно даже может быть видимым, в этом случае оно будет физически заголовком окна.
2. Выводить обычное окно с заголовком, но рисовать его самому (OwnerDraw).

[GSerg]

Щас я вам сказочку расскажу, про то, как не нужно забывать про простые решения

Полез я сначала в сабклассинг. Обрабатываю WM_GETTEXT и WM_GETTEXTLENGTH, всё красиво, всё прекрасно, защита от переполнения буфера (начитался-таки Книжек всяких ), только вот не работает. Долго читал MSDN. Долго думал. Долго страдал фигнёй (всё в сторону сабклассинга). Только потом допёрло (вернее, еле откопал в MSDN): если из своего же треда вызывается GetWindowText, то это эквивалентно прямому посылу WM_GETTEXT, и сабклассинг сработает. Если же GetWindowText вызывается из другого треда, то она напрямую берёт это дело из структуры окна. А таскменеджер как раз из другого треда.

Вывод:

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

Option Explicit

Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Form_DblClick()
  Unload Me
End Sub

Private Sub Form_Load()
  SetWindowText Me.hwnd, "Мой мегазаголовок"
End Sub

Да, я тоже долго смеялся

[Ruslan Demidow]

Щас я вам сказочку расскажу, про то, как не нужно забывать про простые решения

Полез я сначала в сабклассинг. Обрабатываю WM_GETTEXT и ======= Сгрызено моей собакой =========
таскменеджер как раз из другого треда.

Вывод:

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

Option Explicit

Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Form_DblClick()
  Unload Me
End Sub

Private Sub Form_Load()
  SetWindowText Me.hwnd, "Мой мегазаголовок"
End Sub

Да, я тоже долго смеялся

Супер!!! Всё гениальное просто!!!
Возьму код на заметку.

[alibek]

GSerg, ну вот, только-только tyomitch с Approximator собрались заняться творчеством, как пришел Шаман и все опошлил

[timsoft]

Щас я вам сказочку расскажу, про то, как не нужно забывать про простые решения

Афигеть!

Спасибо огромное!!!! Работаеть, итить ее тудыть!!!!

Спасибо всем!

[GSerg]