• Registered: 2018-11-13
  • Posts: 299

Topic: Открытие окна поверх другого

Доброе время суток, очень мучает давно уже вопрос, когда открываю следующее по иерархии (не знаю точно как это назвать) окно. То предыдущее блокируется и использовать его нельзя. Пример у меня есть окно из которого перехожу во второе, но телефонная книга остаётся в предыдущем, а ввод данных в этом. Как сделать так что бы они одновременно были доступны для редактирования? и не мешали друг другу

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Открытие окна поверх другого

Приветствую.


Это называется модальные окна, так задумано.  Но можете с помощью скрипта открыть окно в обычном режиме, пример

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form2.Show;
end;

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

Dmitry.
  • Registered: 2018-11-13
  • Posts: 299

Re: Открытие окна поверх другого

Отлично, всё работает и не конфликтует. А есть какие то правила что бы окно открывалась не по центру экрана а начиная с крайней левой верхней точки?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Открытие окна поверх другого

Установите для формы свойство Position = poDesigned, затем создайте событие OnShow для формы, где вы можете задать позицию формы на рабочем столе.


procedure Form2_OnShow (Sender: TObject; Action: string);
begin
    Form2.Left := 10;
    Form2.Top := 10;
end;
Dmitry.