Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Как создать экземпляр потомка TFrame динамически   Найти похожие ветки 

← →
Гарик   (2001-12-19 11:08) [0]

Имеются 2 панельки - одна навигационная, другая информационная.
на навигационной панели находятся кнопки, при нажатии на которые хотелось бы чтобы создавался соответственный фрейм на другой панели.

при попытке сделать это влоб:
procedure Tform1.tbToolingClick(Sender: TObject);
begin
frame1 := TFrame1.Create(Panel1);
end;

ничего на panel1 не появляется.
в дебаггере у frame1 свойство showing почему-то False.

---

← →
Eduard ©   (2001-12-19 11:43) [1]

Frame1.Parent := Panel1;
Frame1.Visible := True;

---

← →
Гарик   (2001-12-19 12:30) [2]

Естественно, Visible=true

---

← →
Eduard ©   (2001-12-19 12:33) [3]

Короче:

procedure Tform1.tbToolingClick(Sender: TObject);
var Frame1: TFrame;
begin
Frame1 := TFrame.Create(nil);
Frame1.Parent := Panel1;
Frame1.Left := ...
Frame1.Top := ...
Frame1.Visible := True
end;

и что, не появляется ?

---

← →
Eduard ©   (2001-12-19 12:59) [4]

Извиняюсь, не TFrame, а TFrame1

---

← →
Гарик   (2001-12-19 13:00) [5]

появляется :)

---

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

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c