Impedir el acceso a un TabSheet

[[enecumene]]

Hola Bosterito, probaste con lo siguiente?:

Código Delphi [-]
PageControl1.TabSheet1.Enabled := False;

PageControl1.TabSheet1.Visible := False;

Concuerdo con Caral en tratar de explicar un poco mas.

Saludos

[[Caral]]

Hola
Para meterme en camisa de once varas con el maestro.

Código Delphi [-]
TabSheet2.Enabled := False;

Lo que hace es inhabilitar los componentes que esten dentro del tab, siempre se tendra acceso a el.

Código Delphi [-]
TabSheet2.Visible := False;

Dependiendo que donde se llame a este procedimiento, no funcionara, seguira como nada.

Código Delphi [-]
TabSheet2.TabVisible:= false;

Este si hara invisible el tab.
Por eso pregunte, que se quiere hacer, por que hay muchas mas opciones.
Te parece Maestro?
Saludos

[[enecumene]]

Excelente Caral, con esa explicacion me has aclarado muchas cosas.

Saludos.

[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;