Как создать экземпляр потомка 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;

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

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

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

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

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