[sorockinalex]

ребята, помиогите, пожалуйста! создаю динамически TLabel на форме, а он не виден.. Сделал проверку Caption при нажатии на этой форме кнопки - Caption возвращается...

Код:

var
  FChangesMsg: TFChangesMsg;
  beforelbl, afterlbl:array[0..20]of TLabel;

...

Код:

for i:=0 to 20 do
begin
  beforelbl[i]:=TLabel.Create(FChangesMsg);;
  beforelbl[i].ParentFont:=true;
  beforelbl[i].Top:=8+i*16;
  beforelbl[i].Left:=8;
  beforelbl[i].Height:=14;
  beforelbl[i].Width:=100;
  beforelbl[i].Caption:=before_[i];
  beforelbl[i].Visible:=true;
  beforelbl[i].Enabled:=true;
end;

[poli-smen]

Сообщение от sorockinalex

ребята, помиогите, пожалуйста! создаю динамически TLabel на форме, а он не виден.. Сделал проверку Caption при нажатии на этой форме кнопки - Caption возвращается...

Код:

var
  FChangesMsg: TFChangesMsg;
  beforelbl, afterlbl:array[0..20]of TLabel;

...

Код:

for i:=0 to 20 do
begin
  beforelbl[i]:=TLabel.Create(FChangesMsg);;
  beforelbl[i].ParentFont:=true;
  beforelbl[i].Top:=8+i*16;
  beforelbl[i].Left:=8;
  beforelbl[i].Height:=14;
  beforelbl[i].Width:=100;
  beforelbl[i].Caption:=before_[i];
  beforelbl[i].Visible:=true;
  beforelbl[i].Enabled:=true;
end;

Добавь ещё:

Код:

beforelbl[i].Parent:=Form1;

[sorockinalex]

добавлял

Код:

beforelbl[i].Parent:=Self;

не помогает

[sorockinalex]

блин, почему Self не работает?
когда добавил

Код:

beforelbl[i].Parent:=FChangesMsg;

всё заработало

[poli-smen]

Сообщение от sorockinalex

блин, почему Self не работает?
когда добавил

Код:

beforelbl[i].Parent:=FChangesMsg;

всё заработало

Self не может не работать.

[NumLock]

потому что не видно кто в данном случае Self

[sorockinalex]

блин, почему Self не работает?
когда добавил

Код:

beforelbl[i].Parent:=FChangesMsg;

всё заработало

[NumLock]

см. сообщение выше^

[sorockinalex]

спасибо большое за помощь!!

[sorockinalex]

Сообщение от poli-smen

Self не может не работать.

может потому, что эта форма расположена в пакете Datamodule.bpl

[poli-smen]

Сообщение от sorockinalex

может потому, что эта форма расположена в пакете Datamodule.bpl

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

[NumLock]

после

Код:

beforelbl[i]:=TLabel.Create(FChangesMsg);;

добавь:

Код:

if Self is TFChangesMsg then ShowMessage('Ok') else ShowMessage('Oops');

что на дисплее написано? компилятор пропускает?

[poli-smen]

Сообщение от NumLock

после

Код:

beforelbl[i]:=TLabel.Create(FChangesMsg);;

добавь:

Код:

if Self is TFChangesMsg then ShowMessage('Ok') else ShowMessage('Oops');

что на дисплее написано? компилятор пропускает?

Или добавь:

Код:

ShowMessageFmt('Класс: %s, Имя: %s', [Self.ClassName, Self.Name]);

Какое сообщение появляется?