Динамическое создание компонентов на модальной форме / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Динамическое создание компонентов на модальной форме

16 сообщений из 16, страница 1 из 1

Динамическое создание компонентов на модальной форме

#39699480

aford

Гость

Всем привет.
Не пойму в чем проблема, создаю модальную форму, на ней в onCreate должны динамически создаваться компоненты, но они создаются только если владельцем является панель. В чем может быть дело?

Тут все прекрасно работает

Код: pascal

1.
2.
3.
4.
5.
6.
7.

procedure TForm1.FormCreate(Sender: TObject);
var
  Memo: TMemo;
begin
  Memo:= TMemo.Create(Form1);
  Memo.Parent:= Form1;
end;

А тут нет

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

procedure TForm1.btn1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2:= TForm2.Create(Application);
  Form2.ShowModal;
end;

// unit2
procedure TForm2.FormCreate(Sender: TObject);
var
  Memo: TMemo;
begin
  Memo:= TMemo.Create(Form2);
  Memo.Parent:= Form2;
end;

...

Рейтинг:

0 / 0

07.09.2018, 11:43

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699489

AJi

Гость

aford,

Попробуйте использовать Self.

Код: pascal

1.
2.
3.
4.
5.
6.
7.

procedure TForm2.FormCreate(Sender: TObject);
var
  Memo: TMemo;
begin
  Memo:= TMemo.Create(Self);
  Memo.Parent:= Self;
end;

...

Рейтинг:

0 / 0

07.09.2018, 11:48

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699491

Кроик Семён

Участник

Откуда: СПб --> Dortmund

Сообщения: 7 039

Рейтинг: 0 / 0

Код: pascal

   Memo.Visible := true;

...

Рейтинг:

0 / 0

07.09.2018, 11:52

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699492

aford

Гость

AJi,

работает, спасибо! А почему так? Родитель получается сам, память выделена самим, а отображается на форме? Он потом корректно выгрузится из памяти?

...

Рейтинг:

0 / 0

07.09.2018, 11:52

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699494

aford

Гость

Кроик Семён, оно по умолчанию всегда true вроде)

...

Рейтинг:

0 / 0

07.09.2018, 11:53

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699496

goldmi45

Участник

Сообщения: 1 307

Рейтинг: 0 / 0

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

procedure TForm1.btn1Click(Sender: TObject);
var
  Form2: TForm2; // Локальная переменная в процедуре TForm1.btn1Click
begin
  Form2:= TForm2.Create(Application);
  Form2.ShowModal;
end;

// unit2
procedure TForm2.FormCreate(Sender: TObject);
var
  Memo: TMemo;
begin
  Memo:= TMemo.Create(Form2); // Проверьте, чему равна Form2. Скорее всего nil. Но точно не Form2 из процедуры TForm1.btn1Click
  Memo.Parent:= Form2;
end;

Вывод - лучше всего использовать Self

...

Рейтинг:

0 / 0

07.09.2018, 11:55

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699499

Кроик Семён

Участник

Откуда: СПб --> Dortmund

Сообщения: 7 039

Рейтинг: 0 / 0

P.S.
Подсказка с "Self" правильная, а .Visible в true выставить хуже не сделает, но, думаю, он уже true по умолчанию.

...

Рейтинг:

0 / 0

07.09.2018, 11:56

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699503

Кроик Семён

Участник

Откуда: СПб --> Dortmund

Сообщения: 7 039

Рейтинг: 0 / 0

Код: pascal

1.
2.
3.
4.
5.

var
  Form2: TForm2;
begin
  Form2:= TForm2.Create(Application);
  Form2.ShowModal;

так вот, локальная переменная Form2 хоть и зовется так же, как и в Unit2, но совершенно ей не равна. Они просто тёзки

...

Рейтинг:

0 / 0

07.09.2018, 11:58

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699509

AJi

Гость

afordAJi,

работает, спасибо! А почему так? Родитель получается сам, память выделена самим, а отображается на форме? Он потом корректно выгрузится из памяти?
Выше уже все ответили.
Не факт, что Form2 и есть ваша форма. А self, внутри самой формы однозначно определяет к какому объекту вы обращаетесь.

...

Рейтинг:

0 / 0

07.09.2018, 12:03

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699510

aford

Гость

Все равно не пойму

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Form2: TForm2;

implementation



{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  Form2:= TForm2.Create(Application);
  Form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Memo: TMemo;
begin
  Memo:= TMemo.Create(Form1);
  Memo.Parent:= Form1;
end;

end.

Unit2

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

procedure TForm2.FormCreate(Sender: TObject);
var
  Panel: TPanel;
begin

  Panel:= TPanel.Create(Application);
  Panel.Parent:= Unit1.Form2;
  Panel.ParentColor:= False;
  Panel.Color:= clBlue;
end;

Тоже не работает...

...

Рейтинг:

0 / 0

07.09.2018, 12:03

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699516

Кроик Семён

Участник

Откуда: СПб --> Dortmund

Сообщения: 7 039

Рейтинг: 0 / 0

Дело в том ещё, сейчас подумал, что в момент отработки OnCreate в переменную Form2 ещё ничего не записано. Вроде бы.

...

Рейтинг:

0 / 0

07.09.2018, 12:08

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699519

Кроик Семён

Участник

Откуда: СПб --> Dortmund

Сообщения: 7 039

Рейтинг: 0 / 0

И соответственно не ясно, как оно с Form1 отработать могло. Там же на этот момент ещё мусор записан.

...

Рейтинг:

0 / 0

07.09.2018, 12:10

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699521

aford

Гость

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.

procedure TForm2.FormShow(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel:= TPanel.Create(Application);
  Panel.Parent:= Unit1.Form2;
  Panel.ParentColor:= False;
  Panel.Color:= clBlue;
end;

Вот так работает, только цвет почему-то не меняется у панели

...

Рейтинг:

0 / 0

07.09.2018, 12:11

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699528

Кроик Семён

Участник

Откуда: СПб --> Dortmund

Сообщения: 7 039

Рейтинг: 0 / 0

Используйте Self. И багов будет меньше.
А переменные Form1 и Form2 (и далее по аналогии) лучше вообще забыть, что такие есть. И если из другой формы надо стучаться в какую-нибудь ещё, то лучше предварительно передать в неё ссылку на объект. Тогда и багов, связанных с тем, что инстанций какой-нибудь формы >1 не будет, и код будет более явный

...

Рейтинг:

0 / 0

07.09.2018, 12:17

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699536

aford

Гость

Все, разобрался. Спасибо за ответы!
а панель не окрашивалась, т.к. по умолчанию

Код: pascal

Panel.ParentBackground:= True;

Поправил на True и все заработало как надо.

...

Рейтинг:

0 / 0

07.09.2018, 12:25

| Ответить | Цитировать | Написать

Динамическое создание компонентов на модальной форме

#39699620

alekcvp

Участник

Сообщения: 2 924

Рейтинг: 0 / 0

afordprocedure TForm2.FormShow(Sender: TObject);
var
Panel: TPanel;
begin
Panel:= TPanel.Create(Application);
Panel.Parent:= Unit1.Form2;
Panel.ParentColor:= False;
Panel.Color:= clBlue;
end;
Вот так работает, только цвет почему-то не меняется у панели

Вот прямо в тему:Я ужасно не люблю, когда я иду, иду себе спокойно, и тут вдруг – БАЦ! – грабли. То есть, конечно, грабли – это неприятно само по себе, но когда они вот такие внезапные – это очень огорчительно. Другой вопрос, что иногда на них наступить очень хочется.
И вот здесь-то вступает в действие мое правило «наступать на грабли очень аккуратно». Это значит:
- убедиться, что это именно грабли;
- выяснить, из чего эти грабли состоят и чем конкретно они плохи;
- посмотреть, как на них наступают другие;
- посмотреть на то, что им за это потом прилетает;
- прикинуть, как после этого жить дальше;
- хорошенько подумать, может, без грабель все-таки будет лучше…
И только потом, когда все взвешено, обдумано и спланировано, на них наступить.
(С) https://bash.im/quote/451826

...

Рейтинг:

0 / 0

07.09.2018, 13:51

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Динамическое создание компонентов на модальной форме

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=39699492&tid=2040437]:	0ms
get settings:	8ms
get forum list:	16ms
check forum access:	3ms
check topic access:	3ms
track hit:	143ms
get topic data:	10ms
get forum data:	2ms
get page messages:	52ms
get tp. blocked users:	1ms
others:	214ms

total:	452ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы