Prirazeni komponenty – Delphi – Fórum – Programujte.com

zadravim ...

mam problem s takovou kravinou ...  je to jen takova mala graficka uprava programu, mozna se muze nekomu hodit.

Na Form1 jsem dal zakladni panel a na nej nekolik dalsich panelu.napsal jsem tenhle kod:

var
  Form1: TForm1;
  comp: TComponent;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Panel3.Width:= 0;
  Panel3.BringToFront;
  comp:= Panel3;
  Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var a,b,c: integer;
begin
  a:= Panel1.Width;
  b:= a div 40;
  c:= a mod 40;
  If (comp.Width + (c)) <> Panel1.Width then
  comp.Width:= comp.Width +b
  else
  Timer1.Enabled:= false;

end;

end.

ale prave comp.Width nejde pouzit, poradite prosim nekdo, jak to napsat
chtel bych,  promenne comp priradit jakykoliv panel a pracovat s jeho vlastnostmi za behu programu.

dekuji.

napadlo me to jeste zapsat takhle ...

var
  Form1: TForm1;
  i: integer;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Panel3.Width:= 0;
  i:= 3;
  Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var a,b,c: integer;
    pan: array[1..6] of Tpanel;
begin
  a:= Panel1.Width;
  b:= a div 40;
  c:= a mod 40;
  If (pan[i].Width + (c)) <> Panel1.Width then
  pan[i].Width:= pan[i].Width +b
  else
  Timer1.Enabled:= false;

end;

end.

ale haze mi to taky chybu, ze to znasilnuju ...

#3 KIIV
super,  takevejhle zapis jsem jeste nevidel, ..  zase neco noveho.

diky moc ..

ukazatele