• Registered: 2017-03-17
  • Posts: 109

Topic: Привязать форму к форме

Здравствуйте! Как привязать одну форму к другой, что бы при перемещении главной формы другая открытая форма тоже перемещалась? Главная форма появляется в центре экрана, при нажатии кнопки появляется вторая форма в определенной области и перекрывает специально выбранную область главной формы и надо что бы при перемещении главной формы та вторая форма тоже перемещалась не меняя позиции той выделенной для нее области на главной форме

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,544

Re: Привязать форму к форме

Вы можете разместить вторую форму непосредственно на главной форме, см. реализацию процедуры ShowFormOnPanel() - https://vk.com/@createmyvisualdatabasea … i-vlastvuy

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2017-03-17
  • Posts: 109

Re: Привязать форму к форме

если можно примерчик пожалуйста)

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,544

Re: Привязать форму к форме

Bullet3203 wrote:

если можно примерчик пожалуйста)

Примерчик в статье по указанной выше ссылке - процедура ShowFormOnPanel() позволяет показывать форму на панели другой формы.

Упрощенный вариант выглядит так:

procedure ShowFormOnPanel(AForm:TAForm; APanel:TdbPanel);
begin
   AForm.borderStyle := bsNone;
   AForm.Align := alClient;
   AForm.Parent := APanel;
   SetParent( AForm.Handle, APanel.Handle);
   AForm.visible := true;
end;
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2017-03-17
  • Posts: 109

Re: Привязать форму к форме

Что то не выходит ничего по данному примеру