Цитата insombia:
|
а можно ли сделать чтобы оно быстрей открывалось? »
|
Можно:
читать дальше »
while True do
begin
if i>0 then i:=0;
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=0 then Break;
i:=i+10;
end;
end else
begin
while True do
begin
if i<-Panel1.Width then i:=-Panel1.Width;
Panel1.Left:= ScaleX(i);
WizardForm.SelectDirPage.Repaint;
if i=-Panel1.Width then Break;
i:=i-10;
end;
меняеш эти циферки, пока резульат тебя не удовлетворит. Поправил второй пример
