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

← →
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; ?

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

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;

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