Rodar una forma

Rodar una forma

Rodar una forma : Multi-millones de consejos para hacer su vida mas facil.

El comportamiento estandar de un doble clic en una barra de titulo es maximizar/restaurar el formulario. Los siguientes cambios de clase de la doble accion de clic para agregar un nuevo efecto es Acumulativo/Restaurar.
Copia la siguiente unidad y colocarlo en un directorio que esta reconocido por la ruta de busqueda de delphi (es decir, /Delphi/5.0/Lib/)
unidad de OrckaForm
interfaz
{$B}
usos
& nbsp & nbsp Mensajes, Formularios, Clases
tipo
& nbsp & nbsp TOrckaForm = class(TForm)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp FOldHeight: Longint
& nbsp & nbsp & nbsp & nbsp FRollUp, FRolledUp: Boolean
& nbsp & nbsp protegido
& nbsp & nbsp & nbsp & nbsp procedimiento WMNCLDblClick(var Msg: TMessage) mensaje WM_NCLBUTTONDBLCLK
& nbsp & nbsp & nbsp & nbsp procedimiento WMGetMinMaxInfo(var Msg: TMessage) mensaje WM_GETMINMAXINFO
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp constructor Create(AOwner: TComponent) reemplazar
& nbsp & nbsp & nbsp & nbsp propiedad Paquete: Boolean leer FRollUp escribir FRollUp
& nbsp & nbsp final
aplicacion
usos de Windows
procedimiento TOrckaForm.WMNCLDblClick(var Msg: TMessage)
begin
& nbsp & nbsp if (Msg.wParam = HTCAPTION) y (FRollUp), a continuacion,
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp si FRolledUp, a continuacion,
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FRolledUp := False
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Altura := FOldHeight

& nbsp & nbsp & nbsp & nbsp end else
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FRolledUp := True
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FOldHeight := Altura
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Altura := 0
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp end else
& nbsp & nbsp & nbsp & nbsp heredado
fin
constructor TOrckaForm.Create(AOwner: TComponent)
begin
& nbsp & nbsp inherited Create(AOwner)
& nbsp & nbsp FOldHeight := Altura
& nbsp & nbsp FRollUp := True
& nbsp & nbsp FRolledUp := False
fin
procedimiento TOrckaForm.WMGetMinMaxInfo(var Msg: TMessage)
begin
& nbsp & nbsp heredado
& nbsp & nbsp si FRolledUp, a continuacion,
& nbsp & nbsp & nbsp & nbsp pMinMaxInfo(Msg.lParam)^.ptMaxTrackSize.y := Altura
fin
final.

Para utilizar el formulario para crear un nuevo formulario en el que se vera algo como..
unidad de Unit3
interfaz
usos
& nbsp & nbsp Windows, Messages, SysUtils, Classes, Graphics, Controles, Formularios, cuadros de dialogo
tipo
& nbsp & nbsp TForm3 = class(TForm)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp { Private declarations }

Agregar OrckaForm a la clausula uses y cambiar la siguiente linea
TForm3 = class(TForm)

TForm3 = clase(TOrckaForm)
ejecutar su proyecto, siempre que lo haga doble clic en el titulo de la forma de rodar de seguridad/restauracion.