Delphi уроки: Динамически (программно) создаем новую форму.

Опубиковано: 31.08.2008 г., автор: , просмотров: 68831

    Delphi уроки: Динамически (программно) создаем новую форму.

    Сегодня я тебе расскажу, как можно программно создать форму, вместе мы сделаем лёгкий пример, надеюсь план понятен?! Тогда приступим! Если ты не знаешь о зачем это надо, то поясню, иногда заранее не известно сколько форм будет в программе это возникает в тех случаях когда пишешь программу, ну скажем чат для локальной сети... и надо сделать так что бы каждое личное сообщение выводилось в новом окне т.е в в новой форме.

    Ну что поехали

    Для начала создаем новый проект и кидаем на форму кнопку (button). Теперь создадим еще одну форму, жмем: File => New => Form
    Сделали?.. Тогда создаем обработчик событий (OnClick) на кнопке и в нем пишем:

    Form2:= TForm2.Create(Application);
    Form2.Caption:= 'Новое сообщение';
    form2.Show;

    Запускаем проект и Delphi выдает нам вот такое окно, в котором нажимаем yes. ( Если окошко по каким либо причинам не появилось то после ключевого слова implementation допиши вот такую строчку)

    uses Unit2;

    Запускаем еще, теперь при каждом щелчке по кнопке будет создаваться новая форма. А вот как это получилось у меня:

    На сегодня все, Встретимся в следующем уроке.

    P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
    Форма для подписки расположена с права и с лева.

    До встречи DelphiExpert.ru !!!



    Похожие материалы

    Последние из рубрики

    Вася 17 Май 2019 в 11:21 #
    File => New => Form
    А ничего так, что эта форма уже будет создана автоматом в файле проекта? :))))
    Работа. Обработка заказов на дому. 18 Май 2017 в 19:24 #
    Предлагаем Вам работу без вложений, на системе автоматического приёма и обработки заказов.

    Мы предоставляем:

    - Наш лицезионный софт.
    - документы со всей необходимой доп. информацией.
    - постоянная техническая поддержка.

    Оплата от 5500 в день. Выплаты ежедневно.

    Более подробная информация на нашем сайте >> obrabotka-zakazov.tk
    Василий 04 Мар 2013 в 00:00 #
    А можно в новой форме кнопки создавать?
    Александр 14 Янв 2013 в 00:00 #
    Такое используется во всех современых играх, например Crossfire.
    maloy 27 Ноя 2012 в 00:00 #
    Зачем создавать форму File => New => Form

    Без создания формы
    procedure TForm1.Button1Click(Sender: TObject);
    var
    Form2:TForm;
    begin
    Form2:=TForm.Create(Application);
    Form2.Show;
    end;

    ОтменитьДобавить комментарий