Impedir el acceso a un TabSheet

[bosterito]

Hola. A lo que me refiero es si estoy parado en el TabSheet 1 y quiero acceder al TabSheet 2 o 3 solo lo pueda hacer a través de un botón y no al clickear en un TabSheet

[[enecumene]]

A ver si te entendimos, lo que quieres es por ejemplo, hay dos botones y un solo tabsheet visible y el otro no, entonces, mediante el boton 2 se presente el segundo tabsheet y esconder el primer tabsheet y asi sucesivamente?.

si es asi entonces tenemos lo siguiente:

Código Delphi [-]
//boton 1 abre el primer tabsheet
PageControl1.Tabsheet1.Tabvisible := True;

PageControl1.Tabsheet2.Tabvisible := False;

//boton2 abre el segundo tabsheet
PageControl1.Tabsheet1.Tabvisible := False;

PageControl1.Tabsheet2.Tabvisible := True;

es eso lo que buscas o sigo sin entender?

Saludos

[[Caral]]

Hola
La unica opcion que se me ocurre en la tres de mi ultima intervencion.
Saludos

[bosterito]

Gracias, me sirvió sus respuestas. Ahora quiesiera preguntarle otra cosa. Tengo un componente SpinEdit, el cual tiene la propiedad EnableEdit en falso para impedir usar la tecla BackSpace. Mi problema es que no anda con la tecla suprimir. Podría en el evento KeyPress usar esta opción, y cuál es caracter que corresponde a la tecla suprimir?. Desde ya muchas gracias.

[dec]

Hola,

El identificador que buscas, la constante de la tecla "Supr" o "Del" es "WK_DELETE". Puedes hacer algo así en el evento "OnKeyDown" del "TSpinEdit":

Código Delphi [-]
procedure TForm1.SpinEdit1KeyDown(Sender: TObject;
 var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_DELETE) then
  begin
    // Evit the Supr/Del key
    Key := 0;
  end;
end;

[[Héctor Randolph]]

Aún falta hacer una prueba más con el PageControl. Vamos a suponer que tomamos un PageControl y colocamos algunas pestañas (TabSheet).

Ahora vamos a su evento OnChanging y hacemos algo como esto:

Código Delphi [-]
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange:=False;
end;

El resultado es que no podremos cambiar de pestaña dado que lo hemos indicado textualmente con la variable AllowChange.

También es posible hacerlo de manera condicional según nuestra conveniencia. Por ejemplo:

Colocamos 5 pestañas en un PageControl y en el evento OnChanging escribimos esto

Código Delphi [-]
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange:=(TPageControl(Sender).ActivePageIndex<3);
end;

Le estamos indicando que solamente nos permita hacer clic en las pestañas si estamos dentro de alguna de las primeras cuatro páginas. Luego entonces, si caemos en la última página no tendremos salida (no se puede hacer clic en las pestañas), para salir de allí colocamos un botón para que nos regrese a la primera página al hacer click sobre él.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   PageControl1.ActivePageIndex:=0;
end;

Me parece entender que esto es lo que planteaba bosterito

Saludos