Estoy usando un componente de control de página y necesito agregar un botón y hacer clic para ir a una página especificada.¿Cómo puedo configurar la página actual de un TPageControl?
¿Cómo puedo hacer esto por favor?
añadir un botón a la forma y escribir un controlador OnClick evento como este:
procedure TMyForm.Button1Click(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet1;
end;
Puede utilizar ActivePageIndex:
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 0;
end;
Esto es equivalente a usar 'ActivePage', las dos propiedades son –
Aún prefiero configurar ActivePage, porque el índice de una página es variable. O al menos: tiene esa habilidad. La referencia a una página, por otro lado, siempre permanecerá igual. Y lo más probable es que el código sea más legible con un nombre de variable autodescriptivo que con un dígito sin sentido. – NGLN
Creo que depende de la situación. Muchas veces utilicé ActivePageIndex establecido en 0 en formShow para asegurarme de que el primero sea visible al inicio. Después de reactivar las pestañas, el código sigue siendo correcto. –
@ Satch3000, buena sugerencia, pero tenga en cuenta que esto no va a desencadenar una Evento OnPageChange para PageControl, si quiere ** que ** suceda, tendrá que llamar ese evento en su 'Button1Click' explícitamente. – Johan