Delphi - L.A.E.

 
Vista:

L.A.E.

Publicado por Javier Gómez (2 intervenciones) el 28/04/2001 01:34:09
Como evito que se puedan mover de una página de un TPageControl a otras páginas.

saludos

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:L.A.E.

Publicado por qdevelop2000 (26 intervenciones) el 28/04/2001 15:00:35
Haz doble-click en el evento onChanging del TPageControl y escribe lo de abajo, poniendo en <condición> la condición por la que puede cambiar de página.

Si tienes dudas dímelo. Si no, te ruego me hagas saber si te quedó claro.
Chao.

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
if ((Sender as TPageControl).ActivePage = TabSheet1) and (not <condición>) then
AllowChange := False;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar