Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Frame [D5, Win95/98, WinME, Win2k]

Sand Worm © (2001-12-19 14:55:00)
Можно как-нибудь из основной формы получить доступ к компонентам расположенным на фрэйме созданном на этой же форме. Т.е. на форме создан фрейм, на котором есть например Label1, можно ли из главной формы изменить свойство Caption этой Label1? Frame1.Label1.Caption:="123"; - падает с матами :-( Поможите чайнику плиз.

Vitaly (2001-12-20 09:32:00) [1]
Можно описание класса TFrame2?

Digitman (2001-12-20 08:06:00) [2]
а что такое Frame в ShowMessage (Frame.Label1.Caption) ? Где и как эта переменная определена ? Ведь ссылка на экземпляр созданного фрейма, судя по FFRame:=TFrame2.Create (Panel1) хранится в FFRame, а не Frame !

Sand Worm (2001-12-20 07:03:00) [3]
Пжалста имеем следующий код:
private
FFrame: TFrame;
end;
var
Form1: TForm1;
implementation
Uses unit2; - Это юнит фрейма, там есть var Frame: TFrame2;
{$R *.DFM}
/Тут создаем фрейм/
procedure TForm1.Button1Click(Sender: TObject);
begin
if FFrame<> nil then FFrame.Free;
FFRame:=TFrame2.Create (Panel1);
FFRame.Parent:=Panel1;
FFRame.Align:=alClient;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage (Frame.Label1.Caption);
end;

Так вот при нажатии батона2, естественно после нажатия батона1 прога выпадает с exception. Скажите где собака порылась плиз. Самое интересное, что компилится все на ура, хоть эт не показатель, но все же.

Digitman (2001-12-19 15:31:00) [4]
>Sand Worm
Я, может, не понял - ты речь ведешь о TFrame или о какой-нибудь панельке из палитры, которую иногда тоже фреймом называют ? Если о TFrame, то
Frame1.Label1.Caption должно корректно обращаться к св-ву (если Self в этот момент = форме, которой фрейм принадлежит)

SergVlad (2001-12-19 15:13:00) [5]
Это что-то новое - о взаимоотношениях формы и фрейма.
Например, на форме лежит фрейм frDBTree, во фрейме находится TQuery.
Делаю вот так:

with frDBTree do begin
quTree.DatabaseName := DBName;
pSQL := TStringList.Create;
pSQL.Add("SELECT * FROM " + pTbName + " R");
pSQL.Add("ORDER BY R.NAME");
m_SetView;
m_SetStatus;
tv.ReBuildTree;
end;

И никак по другому.

Digitman (2001-12-19 14:58:00) [6]
Label1 - св-во формы, а не фрейма. и обращаться к нему нужно через Form1, а не через Frame1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »