Вопросы по компонентам для Delphi, C++ Builder 2 - [70] :: Прикладное программирование

Есть главная форма с панелью кнопок Form1, переключаюсь между формами по коду (у всех нужных кнопок панели одинак. код):

Код:

procedure TForm1.TBXItem1Click(Sender: TObject);
var
NewClass: TFormClass;
New: TForm;
begin
LockWindowUpdate(Container.Handle);
try
case (Sender as TTBXItem).Tag of
0: NewClass := TForm2;
1: NewClass := TForm3;
2: NewClass := TForm4;
3: NewClass := TForm5;
else
NewClass := nil;
end;
if (Container.ControlCount = 0) or not (Container.Controls[0] is NewClass)
then
begin
if Container.ControlCount > 0 then
Container.Controls[0].Free;
if Assigned(NewClass) then
begin
New := NewClass.Create(Self);
New.Hide;
New.BorderStyle := bsNone;
New.Parent := Container;
New.Align := alClient;
New.Show;
end;
end;
finally LockWindowUpdate(0);
end;
end;

Всё работает нормально.
теперь например необходимо по кнопке принадлежащей Form2 (загруженной из главной формы) загрузить (закрыв Form2) Form4, из Form3 - Form5 ... любые комбинации.
Пытаюсь использовать тотже код:

Код:

procedure TForm2.SpTBXButton1Click(Sender: TObject);
var
NewClass: TFormClass;
New: TForm;
begin
LockWindowUpdate(Form1.Container.Handle);
try
NewClass := TForm4;
if (Form1.Container.ControlCount = 0) or not (Form1.Container.Controls[0] is
NewClass) then
begin
if Form1.Container.ControlCount > 0 then
Form1.Container.Controls[0].Free;
if Assigned(NewClass) then
begin
New := NewClass.Create(Form1);
New.Hide;
New.BorderStyle := bsNone;
New.Parent := Form1.Container;
New.Align := alClient;
New.Show;
end;
end;
finally LockWindowUpdate(0);
end;
end;

Form4 появляется, но тутже вываливается ошибка... по адресу... 7 нулей (кажись 7)
Формы загружаемые с панели и формы загружаемые из др. форм естественно разные.
Незнаю понятно ли, если что готов еще прояснять... СПАСИБО!

Чёт я замудрил, может можно проще? Посоветуйте!

из ElPack 5...
TElFormContainer
TElFormContainer allows specification of form arrays or HTML pages for use with TElFormDisplay and TElPageControl components This control simplifies reuse of certain form/HTML page arrays.

TElFormDisplay
This small but very useful component displays forms like a panel within the component. This is not only useful for faster loading of forms but also much more resource friendly than e.g. using a TNotebook. Besides forms are much easier reusable in other projects than pages of a TNoteBook or similar component. Different forms can be stored externally e.g. in TLMDFormContainer. This way simplifies reuse of certain form arrays (which can be mixed with HTML pages).

TElFormPageControl
This control provides all features of TLMDElPageControl, but similar to TLMDFormDisplay this control can display standard TForm descendants instead if internal stored pages. Such forms can be stored e.g. externally in TLMDFormContainer and thus shared among different controls.

Модерирует : ShIvADeSt
ShIvADeSt (20-06-2007 07:33): http://forum.ru-board.com/topic.cgi?forum=33&topic=8529	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106