popup vindue på samme måde som i msn

Kan du bruge dette:

unit Unit1;

interface

uses
  windows,sysUtils,classes,controls,forms,extCtrls,stdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Button2: TButton;
    procedure Timer1Timer(sender:tObject);
    procedure FormCreate(sender:tObject);
    procedure rulOp(sender:tObject);
    procedure rulNed(sender:tObject);
  private
    directionFwd,doReSize:boolean;
    destinationHeight:longInt;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Kan du ikke bruge en timer til at rulle højden op/ned (eller hvad mener du)..

const
HEIGHT_MINIMUM = 100;
HEIGHT_MAXIMUM = 400;

procedure tForm1.rulOp(Sender: TObject);
begin destinationHeight:=HEIGHT_MINIMUM;directionFwd:=false;doReSize:=true end;

procedure tForm1.rulNed(Sender: TObject);
begin destinationHeight:=HEIGHT_MAXIMUM;directionFwd:=true;doReSize:=true end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin if not doReSize then exit;
if directionFwd then begin
  if height<destinationHeight then height:=height+5;
end else
  if height>destinationHeight then height:=height-5;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
destinationHeight:=HEIGHT_MAXIMUM
end;

>>mbsnet: koden virker som den skal. du burde bare øve dig noget mere i af formatere koden ordenligt så den ikke er så rodet :) smid et svar

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    DestFwd, DoResize: Boolean;
    DestHeight: LongInt;
  public
    procedure RollUp;
    procedure RollDown;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  MaxHeight = 300;
  MinHeight = 0;

procedure TForm1.RollUp;
begin
  DestHeight := MinHeight;
  DestFwd := False;
  DoResize := True;
end;

procedure TForm1.RollDown;
begin
  DestHeight := MaxHeight;
  DestFwd := True;
  DoResize := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not DoResize then
      Exit;
  if Panel1.Height < DestHeight then
  begin
      Panel1.Height := Panel1.Height +  5;
  end
  else
  if Panel1.Height > DestHeight then
      Panel1.Height := Panel1.Height - 5;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DestHeight := MaxHeight;
end;

end.

lige lidt forklaring til dem der måtte finde koden brugbar:

Timeren er sat til Enabled og dens Interval 50, denne kører i baggrunden.

der efter kaldes endten RollUp(); eller RollDown(); hvis man vil rulle et vindue eller Control (fx TPanel eller TGroupBox) hhv op eller ned :)

>>mbsnet: skal vi få lukket dette spm? :)

Hej, jeg havde ikke opdaget svaret, sorry.
p.s. Det med formatering er jo alt efter hvordan man gør det.
Personligt bruger jeg altid det første bogstav med småt.

så er den ude af verdenen :)

hehe ja jeg kan kun give dig ret i forbindelse med kodeformatering, hver sin smag :)

personligt er jeg  blevet "opdraget" i ordenlig formatering fra bla hrc og kroning her i gennem exp.dk :)

anyways. tak for hjælpen :)