VPF::Определение отображаемого фрейма

le0ne

Дата 29.1.2010, 17:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Имеется следующая ситуация:
Форма, на форме PageControl с несколькими TabSheet'ами. На 1-м из tabsheet'ов в зависимости от выбора в listbox нужно отображать соответствующий Frame.
Фреймы создаю динамически:

Код


var 
 frWZ : TFrameWZ;
 frWP : TFrameWP;
 CurFr : TFrame;
begin
if (frWz = nil) or (CurFr <> frWz) then
    begin
    if Assigned(Curfr) then
        FreeAndNil(Curfr);
    frWZ := TframeWZ.Create(TabSheetView);
    frWZ.Parent := TabsheetView;
    frWZ.Align := alClient;
    Curfr := frWZ;       //для определения отображаемого фрейма 
    end;

if (frWp = nil) or (CurFr <> frWp) then
   begin
   if Assigned(Curfr) then
        FreeAndNil(Curfr);
   frWP := TframeWZ.Create(TabSheetView);
   frWP.Parent := TabsheetView;
   frWP.Align := alClient;
   Curfr := frWP;
   end;
end;

и так для нескольких кадров. Иногда валится эксепшн "acces violation". Как правильно уничтожать старый frame и создавать новый?
И Как можно узнать отображаемый кадр без применения curFr;

shmelina

Дата 30.1.2010, 01:04 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ты переменные frWz и frWp не обнуляешь (не присваиваешь им nil).

У тебя, случаем, это не процедура с локальными переменными?

Это сообщение отредактировал(а) shmelina - 30.1.2010, 01:36

le0ne

Дата 31.1.2010, 18:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Нет, все переменные глобальные...

kami

Дата 1.2.2010, 01:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 22
Всего: 72

Может, не стоит так "бросаться" созданием-уничтожением фреймов на каждый "чих" пользователя?
Создать по экземпляру каждого 1 раз при инициализации приложения, хранить их в приватных_полях_формы/чего_нибудь_еще/в_глобальных_переменных.
При необходимости - "старому" фрейму делаем Parent:=nil, а новому - Parent:=то_что_нужно.
При закрытии приложения - всем фреймам делаем Parent:=nil и уничтожаем их не боясь ничего, кроме одного - форма будет уничтожена раньше, чем мы вызовем деструкторы фреймов (в результате фрейм, который имел Parent<>nil будет уничтожен, и когда мы попытаемся убить его вторично, будет больно...)

Вот без CurrentFrame как-то неособо получается, имхо - не стоит от него избавляться.

le0ne

Дата 1.2.2010, 13:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Kami, shmelina, спасибо за ответы.

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