Ver Mensaje Individual
  #3  
Antiguo 23-05-2006
esocrates esocrates is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina
Posts: 210
Reputación: 22
esocrates Va por buen camino
Una variante y pregunta

Luego de leer el código que propuso dec ensayé una variante que permitiría eliminar la página elegida.
Pero no me puedo explicar por qué es necesario usar downto en lugar del método directo, (0 to pagecontrol1.Pagecount -1 do), que de ser usado da un mensaje de error.
Mi variante es la sgte.:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  for i:= pagecontrol1.PageCount-1 downto 0 do
  begin
  if pagecontrol1.Pages[i].Name='pepe'  then

  PageControl1.Pages[i].Free;
  end;
end;

Un saludo
Responder Con Cita