Određivanje vidljive kontrole

Odgovori Nova tema

2 odgovora
3.409 pregleda

Određivanje vidljive kontrole 27.11.2008. u 10:35 · pre 218 meseci #1

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.

Re: Određivanje vidljive kontrole 27.11.2008. u 10:54 · pre 218 meseci #2

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;

Potpis

ERROR974

Re: Određivanje vidljive kontrole 28.11.2008. u 10:47 · pre 218 meseci #3

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;

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme