Ich kann das beschrieben Verhalten nicht nachvollziehen, oder ich verstehe das Problem nicht.
Ok ...
Es gibt eine Form2, die ich direkt über die Hauptform (Form1) und über eine zweite Form3 anzeigen lasse.
Jeweils mit "Form2.ShowModal;"
Die Form3 wird über die Hauptform auch mit "Form3.ShowModal;" angezeigt.
Wenn die Form2 über Form3 angezeigt werden soll, sollen die Buttons 1-3 der Form2 "unsichtbar" sein, also:
Code:
procedure TForm3.Button1Click(Sender: TObject);
begin
Form2.Button1.Visible:=False;
Form2.Button2.Visible:=False;
Form2.Button3.Visible:=False;
Form2.ShowModal;
Form2.Button1.Visible:=True;
Form2.Button2.Visible:=True;
Form2.Button3.Visible:=True;
end;
Die Buttons sind aber nur dann "unsichtbar", wenn vorher Form2 nicht über die Hauptform angezeigt wurde.
Lasse ich über die Hauptform die Form2 anzeigen:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
und schließe die Form2:
Code:
procedure TForm2.Button7Click(Sender: TObject);
begin
ModalResult:=1;
Close;
end;
lasse dann Form3 anzeigen:
Code:
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.ShowModal;
end;
und von hier wieder:
Code:
procedure TForm3.Button1Click(Sender: TObject);
begin
Form2.Button1.Visible:=False;
Form2.Button2.Visible:=False;
Form2.Button3.Visible:=False;
Form2.ShowModal;
Form2.Button1.Visible:=True;
Form2.Button2.Visible:=True;
Form2.Button3.Visible:=True;
end;
sind die Buttons bei mir sichtbar und auch aktiv, obwohl z.b. die Abfrage 'Button1.Visible' als 'False' angegeben wird.
Siehe Quellcode Unit2:
Code:
procedure TForm2.Button6Click(Sender: TObject);
begin
if (Button1.Visible) then
Label1.Caption:='Visible = True'
else
Label1.Caption:='Visible = False';
if (Button2.Visible) then
Label2.Caption:='Visible = True'
else
Label2.Caption:='Visible = False';
if (Button3.Visible) then
Label3.Caption:='Visible = True'
else
Label3.Caption:='Visible = False';
end;
Problem jetzt besser erklärt?