[ franjo_tahi @ 27.11.2008. 09:35 ] @
Na formi imam dva TPanela. Za oba je Align = alClient

Programom postavljam za kativni (vidljivi) panel s panel.BrigToFront

Kako znati koji je panel vidljiv, tj da mi pritiskom na gumb svaki put zamjeni panele.
[ Vic @ 27.11.2008. 09:54 ] @
Za takve stvari se koristi panel.visible:=true ili false, a na isti nacin i proveravas koji je vidljiv.
if panel1.visible then
begin
panel1.visible:=false;
panel2.visible:=true;
end;
[ krle_zr @ 28.11.2008. 09:47 ] @
Code:


procedure TForm1.Button1Click(Sender: TObject);

  procedure Switch(Pan1, Pan2: TPanel; Visible1: Boolean);
  begin
    if Visible1 then
    begin
      Pan1.Visible := not Visible1;
      Pan2.Visible := Visible1;
      Pan2.BringToFront;
    end
    else
    begin
      Pan2.Visible := Visible1;
      Pan1.Visible := not Visible1;
      Pan1.BringToFront;
    end;
  end;

begin
  if Panel1.Visible then
    Switch(Panel1, Panel2, True)
  else
    Switch(Panel1, Panel2, False);
  Button1.BringToFront;
end;