Frame

← →
Sand Worm (2001-12-20 07:03) [4]

Пжалста имеем следующий код:
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. Скажите где собака порылась плиз. Самое интересное, что компилится все на ура, хоть эт не показатель, но все же.

Frame Найти похожие ветки