Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 06.11.2015, 10:24   #11
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 267
Репутация: 432
По умолчанию

Цитата:
Сообщение от evg_m Посмотреть сообщение
CreateNew ДА!!! НО !!! не вызывать ЭТО в конструкторе, а использовать ЭТОТ конструктор для создания объекта.
В самом конструкторе TForm (точнее TCustomForm) вызывается сначала CreateNew.

Последний раз редактировалось Filka; 06.11.2015 в 10:27.
Filka вне форума   Ответить с цитированием
Старый 06.11.2015, 10:43   #12
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,765
Репутация: 6211
По умолчанию

Это для передачи параметров в форму?

1. Переопределить Create

Код:

type
  TForm2 = class(TForm)
  private
    lParmAdd: Integer;
  public
    constructor Create(AOwner: TComponent; ParmAdd: Integer);
  end;

...

constructor TForm2.Create(AOwner: TComponent; ParmAdd: Integer);
begin
  inherited Create(AOwner);
  lParmAdd:=ParmAdd;
end;

// Создание

  Form2:=TForm2.Create(Application,1);

2. Другой конструктор

Код:

type
  TForm2 = class(TForm)
  private
    lParmAdd: Integer;
  public
    { Public declarations }
    constructor MyCreate(AOwner: TComponent; ParmAdd: Integer);
  end;

...

constructor TForm2.MyCreate(AOwner: TComponent; ParmAdd: Integer);
begin
  Create(AOwner);
  lParmAdd:=ParmAdd;
end;

// Создание

  Form2:=Form2:=TForm2.MyCreate(Application,1);

3. Можно и так
Код:

type
  TForm2 = class(TForm)
  private
    { Private declarations }
    lParmAdd: Integer;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

procedure Form2Create(ParmAdd: Integer);

implementation

procedure Form2Create(ParmAdd: Integer);
begin
  Form2:=TForm2.Create(Application);
  Form2.lParmAdd:=ParmAdd;
  Form2.Show;
end;

// Создание

  Form2Create(3);

__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 06.11.2015, 12:09   #13
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,648
Репутация: 2371

icq: 100500
skype: kick-ass
По умолчанию

А для чего на практике тебе понадобилось динамически создавать именно форму, а не какой-либо другой оконный объект?
__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума   Ответить с цитированием
Старый 06.11.2015, 16:48   #14
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,687
Репутация: 1522

skype: newerow1989
По умолчанию

Спасибо! Буду разбираться!
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Динамическое создание компонентов Janger Общие вопросы Delphi 11 29.06.2015 17:19
Создание новых компонентов... ALKOrobot Общие вопросы C/C++ 5 04.01.2011 20:42
динамическое создание компонентов DOLBY Компоненты Delphi 10 17.10.2010 14:03
Создание собственных компонентов D7 postal2 Помощь студентам 4 21.08.2009 09:07


21:24.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru