mdichild open

0

Witam mam problem tego typu, ten kod jest umieszczony na foremce 1 fsmdiform w butonie który otwierać ma foremke2 mdichild

procedure TForm1.button1Click(Sender: TObject);
begin
form2.table2.Active:=false;
form2.table2.indexname:='';
form2.Table2.IndexFieldNames:='';
form2.table2.Active:=true;
form2.ComboBox1.visible:=true;
form2.edit1.visible:=false;
form2.panel3.Caption:='';

cóż dopisać do niego żeby się otwierało
dopisuje

var
Child: TForm2;
begin
Child := TForm2.Create(Application);

i wywala mi bład wskazujący na :

form2.table2.Active:=false;
form2.table2.indexname:='';
form2.Table2.IndexFieldNames:='Utilisation';
form2.table2.Active:=true;
form2.ComboBox1.visible:=true;
form2.edit1.visible:=false;
form2.panel3.Caption:='Triage par Utilisation';

poprosze o sugestie
pozdrawiam

0

jaki błąd?????

0

Access Violation"

ale ok udało mi się odpalić Forme z tym że nie działają funkcje
form2.edit1.visible:=false;
form2.ComboBox1.visible:=true;

0

Witam.
Ja otwieram mdichild w ten sposób:
if not Assigned(Form2)then
begin
Form2:=TForm2.Create(Application);
Form2.WindowState:=wsMaximized;
end;
I wsio działa ;)
Pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1