Скачать: CL | DM;

Добавление компонентов! Подскажите!   Найти похожие ветки 

← →
apl   (2006-04-19 12:49) [0]

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

InsertCimponent(<имя конкретного фрейма>)
<имя конкретного фрейма>.Show
<имя конкретного фрейма>.Parent:=MainForm

<Имя конкретного фрейма> - просто имя переменно AFrame, BFrame и т.д.
АFrame, BFrame - наследники TFrame.

Попытался перенести этот код в метод главной формы:

procedure mainForm.SwithFrame(ActiveFrame : TFrame)
begin
 ...
InsertComponent(ActiveFrame);
ActiveFrame.Show;
ActiveFrame.Parent:=MainForm;
end;

Вызов:
...
 MainForm.SwitFrame(AFrame);
 ...
 MainForm.SwitFrame(BFrame);
 ...

Вываливается по ошибке в строке
 ActiveFrame.Parent:=MainForm;

В чем фокус?

---

← →
TUser ©   (2006-04-19 12:52) [1]

Есть ли у этой ошибки словеское выражение?

---

← →
Darvin ©   (2006-04-19 13:41) [2]

ActiveFrame.Parent:=Self;  ?

---

← →
Ksenom ©   (2006-04-19 15:58) [3]

Я при нажатии на кнопку в панели отображаю фрейм. У меня всё работает прекрасно. Код ниже...

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 {Form1.fr:TFrame;}
 Form1.Fr.free;
 Form1.Fr:=nil;

 if Form1.SpeedButton2.Down
 then begin
   Form1.Fr:=TFrame2.Create(Form1.Panel3);
   Form1.Fr.Parent:=Form1.Panel3;
 end;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c