MIDIChild start up position

[runa]

Всем привет!

Подскажите как сделать чтобы MIDIChild появлялся в центре MIDIForm?

[Ennor]

Перед окончанием Form_Load() либо в Form_Activate() позиционируй вручную. Автоматически Басик этого не делает.

[runa]

Спасибо

[Calvin]

2 Ennor если повнимательнее почитать про свойства МДИ формы и немного поэкспериментировать, то все-таки можно решить эту проблему:
если центрировать дочернюю форму при загрузке MDI формы

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

Private Sub MDIForm_Load()
ChForm.Top = Me.ScaleHeight / 2 - ChForm.Height / 2
ChForm.Left = Me.ScaleWidth / 2 - ChForm.Width / 2
End Sub


если центрировать дочернюю форму при загрузке ее самой:

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

Private Sub ChForm_Load()
Me.Top = MDIForm.ScaleHeight / 2 - Me.Height / 2
Me.Left = MDIForm.ScaleWidth / 2 - Me.Width / 2
End Sub


2 runa если хочешь, чтобы дочерняя форма всегда была в центре MDI, кинь первый код в событие Resize MDI формы...