Rouler une forme

Rouler une forme

Rouler une forme : Plusieurs milliers de conseils pour vous faciliter la vie.

Le comportement standard pour double-cliquant sur la barre de titre est pour l'agrandir/restaurer la forme. La suite de changements de classe le double-clic pour ajouter un nouvel effet qui est Cumulatif/Restauration.
Copier l'appareil et le placer dans un repertoire qui est reconnu par delphi chemin de recherche (c'est a dire \Delphi\5.0\Lib\)
unite de OrckaForm
interface
{$B}

& nbsp & nbsp Messages, les Formulaires, les Classes
type
& nbsp & nbsp TOrckaForm = class(TForm)
& nbsp & nbsp prive
& ! & ! & ! & nbsp FOldHeight: Longint
& ! & ! & ! & nbsp FRollUp, FRolledUp: Boolean
& nbsp & nbsp protege
& ! & ! & ! & nbsp procedure WMNCLDblClick(var Message: TMessage) message WM_NCLBUTTONDBLCLK
& ! & ! & ! & nbsp procedure WMGetMinMaxInfo(var Message: TMessage) message WM_GETMINMAXINFO
& nbsp & nbsp public
& ! & ! & ! & nbsp constructor Create(AOwner: TComponent) remplacer
& ! & ! & ! & nbsp propriete Cumulatif: Boolean lire FRollUp ecrire FRollUp
& nbsp & nbsp fin
application
utilise Windows
procedure TOrckaForm.WMNCLDblClick(var Message: TMessage)
begin
& nbsp & nbsp if (Msg.wParam = HTCAPTION) et (FRollUp)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si FRolledUp puis
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp FRolledUp := False
& ! & ! & ! & ! & ! & nbsp Hauteur := FOldHeight

& ! & ! & ! & nbsp fin else
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp FRolledUp := True
& ! & ! & ! & ! & ! & nbsp FOldHeight := Taille
& ! & ! & ! & ! & ! & nbsp Hauteur := 0
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin else
& ! & ! & ! & nbsp herite
fin
constructeur TOrckaForm.Create(AOwner: TComponent)
begin
& nbsp & nbsp herite Create(AOwner)
& nbsp & nbsp FOldHeight := Taille
& nbsp & nbsp FRollUp := True
& nbsp & nbsp FRolledUp := False
fin
procedure TOrckaForm.WMGetMinMaxInfo(var Message: TMessage)
begin
& nbsp & nbsp herite
& nbsp & nbsp si FRolledUp puis
& ! & ! & ! & nbsp pMinMaxInfo(Msg.lParam)^.ptMaxTrackSize.y := Taille
fin
a la fin.

Pour utiliser le formulaire creer un formulaire qui ressemble a quelque chose comme..
unite de Unit3
interface

& nbsp & nbsp Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs
type
& nbsp & nbsp TForm3 = class(TForm)
& nbsp & nbsp prive
& ! & ! & ! & nbsp { Private declarations }

Ajouter OrckaForm a la clause uses et modifiez la ligne suivante
TForm3 = class(TForm)

TForm3 = classe(TOrckaForm)
executer votre projet, a chaque fois que vous double-cliquez sur le titre du formulaire rouleau/restauration.