VPF::Процедура не хочет выполняться

Pakshin A. S.

Дата 22.10.2004, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Код


procedure CreateTab(TabName: string;var OwnerComponent: TComponent;var Parent: TWinControl;var PageControl: TPageControl; {const Form: TWinControl;} TabItems: TTabItems);
var
 TabSheet: TTabSheet;
 i: integer;
 CreatePos:integer;
 procedure CreateOnTab(const id:TItemKind; caption:string);
 var
  Lbl: TLabel;
  Edt: TEdit;
  Check: TCheckBox;
 begin
  case id of
    ik_CheckBox: begin
                  Check:=TCheckBox.Create(TabSheet);
                  Check.Left:=5;
                  Check.Top:=CreatePos;
                  Check.Caption:=caption;
                  Check.Name:=TabName + 'Check' + IntToStr(i);
                  Check.Parent:=TabSheet;
                  inc(CreatePos, Check.Height + 3)
                 end;
       ik_Label: begin
                  Lbl:=TLabel.Create(TabSheet);
                  Lbl.Left:=5;
                  Lbl.Top:=CreatePos;
                  Lbl.Caption:=caption;
                  Lbl.Name:=TabName + 'Lbl' + IntToStr(i);
                  Lbl.Parent:=TabSheet;
                  inc(CreatePos, Lbl.Height + 3)
                 end;
   ik_LabelEdit: begin
                  Lbl:=TLabel.Create(TabSheet);
                  Lbl.Left:=5;
                  Lbl.Top:=CreatePos;
                  Lbl.Caption:=caption;
                  Lbl.Name:=TabName + 'Lbl' + IntToStr(i);
                  Lbl.Parent:=TabSheet;
                  inc(CreatePos, Lbl.Height + 1);
                  Edt:=TEdit.Create(TabSheet);
                  Edt.Left:=5;
                  Edt.Top:=CreatePos;
                  Edt.Name:=TabName + 'Edt' + IntToStr(i);
                  Edt.Parent:=TabSheet;
                  inc(CreatePos, Edt.Height + 3)
                 end;
   end
 end;
begin
 TabSheet:=TTabSheet.Create(OwnerComponent);
 TabSheet.Parent:=Parent;
 TabSheet.PageControl:=PageControl;
 TabSheet.Name:='Tab_' + TabName;
 TabSheet.Caption:=TabName;
 for i:= 0 to Length(TabItems) - 1 do
   CreateOnTab(TabItems[i].ItemKind, TabItems[i].ItemText)
end;

Как уже успели догадаться - динамическое создание TabSheet'а и компонентов на нем.
Проблема такова: TabSheet успешно создается, но компоненты на нем нет!!! Что самое забавное, если описание процедуры, проведенной выше, засунуть в описание класса формы, то всё работает!!! А мен надо всю эту потеху отсоединить от формы, чтобы работало само по себе! Где ошибаюсь? :stena

Alex

Дата 22.10.2004, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

не задоно начальное значение переменной CreatePos

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

p0s0l

Дата 22.10.2004, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Явно не хватает строчки CreatePos := 0;...

Добавлено @ 19:46
Опередили

--------------------

С уважением, г-н Посол.

Pakshin A. S.

Дата 22.10.2004, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

А как насчет этого?
Что самое забавное, если описание процедуры, проведенной выше, засунуть в описание класса формы, то всё работает!!!
Добавлено @ 19:58
Ладно... можно считать тему закрытой!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »