MDIform

[13GHOST]

Вот такой вопрос: при разворачивании дочерней формы в форме MDI заголовок глвной формы меняется (например было: MDIform1 стало MDIform1 - form1) можно ли как нибудль зафиксировать этот заголовок, чтоб он не менялся совсем

[DirectXManiac]

Ловить событие и менять на нужный!

[vvs_adm]

Как оказывается все просто... а как поменять на нужный? К примеру SetWindowText либо соответствующий SendMessage либо банальное свойство Caption не прокатят.
Автору: можно как вариант всем дочерним формам сделать одинаковый заголовок (можно даже пустой). Тогда меняться будет, но не так сильно

[13GHOST]

мне желательно сделать так чтобы не было даже самого факта изменения

[Kovu]

Кстати интересно действительно как. Ведь окну не шлются во время смены заголовка WM_SETTEXT.

[Efiop]

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

Private Sub Form_Resize()
  Static tmp As String
  If Form1.WindowState = 2 Then
    If Len(Form1.Caption) > 0 Then tmp = Form1.Caption
    Form1.Caption = vbNullString
  Else
    If Len(tmp) > 0 Then Form1.Caption = tmp
  End If
End Sub

В принципе одно из решений.

[neic]

Попробуй так:

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

Private Sub Form_Activate()
  Form1.Caption = "form1"
End Sub


Или

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

Private Sub Form_Activate()
  MDIform1.Caption = "MDIform1 - form1"
End Sub


П.с. если, что-то не работает, прошу камнями не кидаться сижу без VB

[13GHOST]

первый вообще не понял
во втором заголовок окна будет всегда: MDIform1 - form1... вообщето

[neic]

первый вообще не понял Smile
во втором заголовок окна будет всегда: MDIform1 - form1... вообщето Smile

Вот такой вопрос: при разворачивании дочерней формы в форме MDI заголовок глвной формы меняется (например было: MDIform1 стало MDIform1 - form1) можно ли как нибудль зафиксировать этот заголовок, чтоб он не менялся совсем

Хм... ну вроде носом ткнул куда копать, самому сложно поменять под себя?

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

'исправление
Private Sub Form_Activate()
  MDIform1.Caption = "MDIform1"
End Sub


[Хакер]

Камнями не кидаю, но намекаю что этот код не будет работать.

А теперь решение этой проблемы:

При разворачивании дочерной формы делайте ей Caption = "". Тогда часть - [ ] вообще не будет добавляться.

[Хакер]

А теперь, внимание, для изобретателей велосипедов:

[neic]

Извиняюсь за мой последний пост!
Поставил VB6, проверил свой код, не работает! Ещё раз ивзвиняюсь!

[Efiop]

Хакер, у тебя то же самое, что и в 6-м посте.

[Хакер]

Не заметил.

ЗЫ.

Откуда: РК

Земляк?

[Efiop]

Хакер

Земляк?

, ну да.

[vvs_adm]

При разворачивании дочерной формы делайте ей Caption = "". Тогда часть - [ ] вообще не будет добавляться.

Странно... Хотел проверить твой код, но не могу, потому что у меня теперь вообще чать [] не добавляется, даже когда я в дизайнере делаю Caption="". Но ведь помню, что раньше добавлялось

[13GHOST]

нельзя ли какнибудь заведомо узнать что у формы собирается смениться caption и предотвратить это до того как он произойдет?

[Хакер]

Вот прям Caption сам по себе иногда берёт и собирается сменится... прям искусственный интеллект какой-то.