Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Вниз

Добавление-удаление фреймов   Найти похожие ветки 

 
Катерина   (2002-04-15 11:03) [0]

Удивительное дело: создаю фреймы, затем по нажитию определенной кнопки добавляю один из них список компонент. По окончании работы, удаляю из компонентов:

var
Form1: TForm1;

theFrame1 : TFrame1;
theFrame2 : TFrame2;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin

ShowMessage(IntToStr(ComponentCount));

theFrame1 := TFrame1.Create(Owner);
theFrame2 := TFrame2.Create(Owner);

ShowMessage(IntToStr(ComponentCount));

end;

procedure CloseAll;
var aComp : TComponent;
begin with Form1 do
begin
ShowMessage(IntToStr(ComponentCount));

aComp := FindComponent("Frame1");
if aComp <> NIL then RemoveComponent(aComp);

aComp := FindComponent("Frame2");
if aComp <> NIL then RemoveComponent(aComp);

Update;

ShowMessage(IntToStr(ComponentCount));
end;

procedure Browse1;
begin with Form1 do
begin
CloseAll;

theFrame1.Parent := Self;
theFrame1.Top := 20;
theFrame1.Left := 8;
theFrame1.Width := 841;
theFrame1.Height := 558;
theFrame1.Visible := TRUE;
InsertComponent(theFrame1);
end;
end;

procedure Browse2;
begin with Form1 do
begin
CloseAll;

theFrame2.Parent := aSelf;
theFrame2.Top := 20;
theFrame2.Left := 8;
theFrame2.Width := 841;
theFrame2.Height := 558;
theFrame2.Visible := TRUE;
InsertComponent(theFrame2);
end;
end;


Отладочная печать честно фиксирует кол-во компонентов формы. Но фрейм после удаления остается на форме. Что делать? Заранее спасибо.


 
Игорь Шевченко   (2002-04-15 11:15) [1]

День добрый,

У меня такой ощущение, что Frames создаются с Owner = Owner самой формы, так что FindComponent у формы сработать не должен...

То есть, Owner у Frame либо Application, либо кто-то еще, а
Parent - сама форма...
Оно так задумано ?
Может, имелось с виду:



procedure TForm1.FormShow(Sender: TObject);
begin

ShowMessage(IntToStr(ComponentCount));

theFrame1 := TFrame1.Create(Self);
theFrame2 := TFrame2.Create(Self);

ShowMessage(IntToStr(ComponentCount));

end;

?



С уважением,


 
Катерина   (2002-04-15 11:44) [2]

Да нет, FindComponenet находит и RemoveComponent удаляет, очем свидетельствует ComponentCount, а дальше не понятно. Сделала, как Вы подсказали - тот же результат.


 
Игорь Шевченко   (2002-04-15 12:21) [3]

День добрый,

Глупый вопрос: а зачем так сложно делать? Вы создаете 2 frame, а потом по каким-то условиям вы их либо добавляете в форму, либо удаляете?
Чего в результате этих дествий вы хотите добиться? :-)

С уважением,


 
Игорь Шевченко   (2002-04-15 12:24) [4]

День добрый,

А просто Owner"а (и Parent"a) у Frame менять не подходит?
Кстати, там, где вы удаляете Frame из формы, не видно, что присходит с Parent этого Frame...

С уважением,


 
Катерина   (2002-04-15 13:44) [5]

Да, действительно, это сложновато. Загрузила все фреймы сразу и по очереди их визуализирую.


 
Игорь Шевченко   (2002-04-15 14:23) [6]

День добрый,

Вообще-то визуализация определяется свойством Visible.
Не проще ли будет это свойство использовать? :-)

С уважением,



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.83 MB
Время: 0.067 c
14-94547
Иван Шихалев
2002-03-19 21:26
2002.04.29
to Moderator


3-94318
kserg@ukr.net
2002-04-08 19:08
2002.04.29
DBgrid - подходы к сохранению настроек грида


3-94278
Malyatko
2002-04-08 12:48
2002.04.29
Добавление в базу данных.


1-94350
ruslan_as
2002-04-17 09:19
2002.04.29
FormKeyPress


6-94536
avk
2002-02-15 22:51
2002.04.29
TStream...получение картинки...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский