Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   necesito un componente para evitar crear tantos formularios (https://www.clubdelphi.com/foros/showthread.php?t=73502)

ingabraham 27-04-2011 00:30:55

necesito un componente para evitar crear tantos formularios
 
hola,
necesito un componente como algo asi como el PageControl1, pero q no se vea que estoy en el mismo form, debido a que este me muestra los TabSheets.

el TabControl1 tambien me hace lo mismo,..

una vez vi aun compañero q tenia en su proyecto que el le daba clic a cada menu, y pasaba de hojas, si estar creando tantos formularios para q el usuario no tubiera q estar cerrandolo forms,.

lastima q perdi contacto con ese compañero.

espero q me entiendan y me orienten em lo que busco,.

santus 27-04-2011 02:31:00

No entiendo mucho que es lo que necesitas hacer.
Supongo que te refieres a como ocultar un tab de un PageControl.

Lo puedes hacer poniendo su propiedad "TabVisible" en False en cada TabSheet.
De esa manera no se ve arriba, y pareciera ser varios formularios.

Espero haberte sido de ayuda.
Saludos.

FGarcia 27-04-2011 17:04:54

En la pestaña de controles Win 3.1 existe el TNotebook y el TPageNotebook. Segun se -nunca lo he usado- te puede mostrar diversas paginas cual si fuera un cuaderno -libreta- con un poco de paciencia tal vez te sirva.

saludos!

FGarcia 27-04-2011 18:03:54

Con un poco de paciencia :

1. Creas una nueva aplicacion.
2. En el formulario principal colocas un TNoteBook
3. Usando el Object Inspector seleccionas la propiedad Pages. Te abre una ventana de edicion donde declaras cuantas paginas necesites asignadole un nombre a cada una de ellas. Automaticamente se les asigna un Indice (PageIndex)
3.1 Haz click derecho en cualquier parte del control TNotebook y te aparece un menu contextual donde puedes avanzar o retroceder entre paginas. Coloca los componentes que necesites en cada uno de ellas.
4. Coloca tres botones en el formulario principal, por ejemplo, y en su evento Onclick coloca el codigo:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
begin
  NoteBook1.PageIndex := 1;
end;

Para garantizar que siempre se inicie en la primera pagina del TNotebook escribe este codigo en el evento OnActivate del Formulario:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
begin
  NoteBook1.PageIndex := 0;
end;

Espero te sirva.


La franja horaria es GMT +2. Ahora son las 07:24:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi