Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Određivanje vidljive kontrole

[es] :: Pascal / Delphi / Kylix :: Određivanje vidljive kontrole

[ Pregleda: 2509 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.



+1 Profil

icon Određivanje vidljive kontrole27.11.2008. u 09:35 - pre 187 meseci
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.
 
Odgovor na temu

Vic
Error974
BI&SE
Beograd

Član broj: 16118
Poruke: 396
*.imlek.co.yu.



+49 Profil

icon Re: Određivanje vidljive kontrole27.11.2008. u 09:54 - pre 187 meseci
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;

ERROR974
 
Odgovor na temu

krle_zr

Član broj: 96307
Poruke: 258
79.101.195.*



+7 Profil

icon Re: Određivanje vidljive kontrole28.11.2008. u 09:47 - pre 187 meseci
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;



 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Određivanje vidljive kontrole

[ Pregleda: 2509 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.