VPF::Динамическое создание\удаление TTabSheet

Gershkovich

Дата 4.3.2008, 11:30 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: 0
Всего: 2

Все привет!

Есть TPageControl, где run-time создаю закладки с TMemo таким вот образом

Код


function TMainWin.CreateTabSheet(SheetCaption : string) : TTabSheet;
var
  Memo : TMemo;

begin

  Result:= TTabSheet.Create(MyPageControl);
  with Result do begin
    Parent := MyPageControl;
    PageControl:= MyPageControl;
    Caption:= SheetCaption;
  end;

  Memo:= TMemo.Create(Result);
  with Memo do begin
    Parent:= Result;
    Align:= alClient;
    Ctl3D:= false;
    ScrollBars:= ssBoth;
    ReadOnly:= true;
  end;
end;

При активной работе (много добавлений\удалений закладок) иногда выпадает invalid pointer operation

Код


var t : TTabSheet;
  while MyPageControl.PageCount > 0 do begin
    t:= MyPageControl.Pages[0];
    t.Free; // здесь иногда invalid pointer operation 
  end;

Приложение однопоточное, никаких других потоков нету.

Мне казалось что где то на этом форуме я видел нечто подобное,
но к сожалению не нашол.

И может быть это как то связано....
В этом же прилоджении при открытии дочернего модального окна
опять же иногда выпадает типа такова:
Label1.Font.Height access violation

Я просто в ступоре...

Rennigth

Дата 4.3.2008, 11:35 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

Gershkovich,
а при каком событии происходит разрушение щитов?

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

(* Honesta mors turpi vita potior *)

Gershkovich

Дата 4.3.2008, 11:50 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: 0
Всего: 2

Rennigth, по нажатию кнопки старые удаляю и создаю новые
примерно так :

Код


procedure TMainWin.Button1Click(Sender: TObject);
begin
  RemoveAllSheets;
  for I:= 0 to N do begin
    CreateTabSheet;
  end;
end;

lukas

Дата 4.3.2008, 19:14 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 3
Всего: 15

хм, попробуй создавать Memo на Onwer-e PageControla, так будет правильнее... возможно и в этом проблема...

Код


Memo := TMemo.Create(Form1) // или TMemo.Create(PageControl)

Это сообщение отредактировал(а) lukas - 4.3.2008, 19:16

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

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Gershkovich

Дата 5.3.2008, 11:42 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: 0
Всего: 2

lukas, Я так понял что ты предположил что TTabSheet выбрасывает
эксепшн из-за того у его дочернего компонента ТМемо неправильный owner ?

Похоже ты оказался прав!!!

Но я немного сделал по другому.
Я не стал менять owner-а, а просто сначала убиваю
ТМемо, а потом TTabSheet вот так:

Код


sheet.RemoveComponent(memo);
memo.free;
sheet.free;

Большое спасибо!!!

Но таки объясни почему так TMemo.Create(Form1) правильней ???

Rennigth

Дата 5.3.2008, 13:03 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

Gershkovich,
не проверял но есть подозрение что парент щиту присваивать не нужно. Т.е.

Код


  Result:= TTabSheet.Create(MyPageControl);
  with Result do begin
//    Parent := MyPageControl;
    PageControl:= MyPageControl;
    Caption:= SheetCaption;
  end;

TPageControl вроде своими механизнами управляет, в итоге получаются кофликты.

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

(* Honesta mors turpi vita potior *)

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