FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Alterar el Toolbar de un Form
Hola Foro!
Mi problema es el siguiente: Cuando maximizo el MainForm de mi programa, éste debe hacerlo pero no debe ocupar toda la pantalla, sino que necesito dejar en la parte inferior, un 10% sin cubrir ... Para todo lo demás, debe lucir como una operación de Maximización-Restauración convencional. Intenté hacerlo así: unit UMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; end; var Form1: TForm1; implementation uses UImpresor; {$R *.DFM} procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MAXIMIZE) then begin Top := 0; Left := 0; Height := (Screen.Height) - (Screen.Height div 9); Width := Screen.Width; Msg.CmdType := SC_RESTORE; end; DefaultHandler(Msg); end; end. Cuando maximizo, obtengo el resultado deseado, pero como no se como implementar el boton de restaurar en la toolbar, y hacer que esa función se simule también. Podrían ayudarme? GRACIAS! |
#2
|
||||
|
||||
Al menos en la versión 7 de delphi los formularios disponen de la propiedad MaxHeight que permite indicar la altura máxima del formulario. Podrás cambiar el tamaño de la ventana, maximizarla, restaurarla, etc. pero la altura nunca sera mayor que la que ahí se indica.
En tu caso la podríamos utilizar en el evento OnCreate
|
#3
|
||||
|
||||
De todas formas y volviendo a tu pregunta, si quieres seguir haciéndolo de esa manera deberías de hacer algo como esto:
De esta manera ya podrás maximizar y restaurar sin problemas, aunque si se modifica el tamaño de la ventana manualmente no podrás controlarlo como si lo hace la propiedad MaxHeight. |
#4
|
|||
|
|||
Cool
Wow.... que ingenioso!! Solucionaste mi problema en una sola línea!!!
Muchísimas Gracias! |
#5
|
||||
|
||||
Hola nemo.
Bienvenido a estos foros, ya que eres relativamente nuevo. Te recomiendo que leas la Guía de estilo y que utilices TAG's en tus mensajes cuando coloques código Delphi. NOTA: Mira el código que has añadido tú y el que ha añadido Seoane. ¿Cual se lee mejor?
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ToolBar fuera del form. | afxe | Gráficos | 2 | 15-06-2006 18:48:59 |
Alterar secuencia de arranque de WinXX.. | wordaz | Varios | 0 | 22-11-2005 03:31:44 |
Alterar los colores de un TImage | Jan_polero | Gráficos | 4 | 23-12-2004 17:57:30 |
Alterar por código una tabla de interbase | Manuel | Firebird e Interbase | 5 | 29-04-2004 10:37:44 |
Canvas de tipo Toolbar (Form Builder) | santana | Oracle | 3 | 27-02-2004 05:52:21 |
|