Как отобразить модально MDIChild форму

Delphi , Программа и Интерфейс , MDI приложения

Как отобразить модально MDIChild форму

Как выполнить код после создания MDIChild-формы но до появления ее на экране?

1.Убераешь свою MDIChild форму из автосоздания: (MainMenu) Project->Options->Forms. Там её перебрасываешь в: Available forms

2. Переключаешься на свою MDIChild форму и дописываеш в описание класса(пусть например твой класс формы для MDIChild называется TForm2):

Code:

TForm2 =  class(TForm)

            ...

            procedure CreateWindowHandle(const Params: TCreateParams); override;

        private

            { Private declarations  }

        public

        ...

procedure TForm2.CreateWindowHandle(const Params: TCreateParams); var Comp:TForm2; begin inherited; Comp:=TForm2(Application.Components[Application.ComponentCount-1]); Comp.Visible:=false; end;

3. Реализуешь эту процедуру:

Code:

uses Unit2; //ссылка на модуль MDIChild формы

         

        {$R  *.dfm}

         

        procedure TForm1.Button1Click(Sender:  TObject);

        var vv:TForm2;

        begin

        vv:=TForm2.Create(Application);

        //... Здесь форма не видна

        vv.Memo1.Lines.Add('123123'); //Типо что-то заполняем на MDIChild форме

        Caption:='2';

        Sleep(2000);

        Caption:='0';

        //.. Здесь форма до сих пор не видна

        vv.Show;

        end;

Автор: Girder

Взято с Vingrad.ru http://forum.vingrad.ru

Чтобы отобразить модально MDIChild форму, необходимо убрать ее из автосоздания, переключиться на ее класс и переопределить процедуру CreateWindowHandle, после чего можно создавать экземпляр формы и вызывать ее методы, а затем показать ее с помощью команды

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: MDI приложения ::

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 13:27:02/0.0048060417175293/1