røste form

procedure WindowShake(wHandle: THandle) ;
const
  MAXDELTA = 4;
  SHAKETIMES = 500;
var
  oRect, wRect :TRect;
  deltax : integer;
  deltay : integer;
  cnt : integer;
  dx, dy : integer;
begin
  //remember original position
  GetWindowRect(wHandle,wRect) ;
  oRect := wRect;

  Randomize;
  for cnt := 0 to SHAKETIMES do
  begin
    deltax := Round(Random(MAXDELTA)) ;
    deltay := Round(Random(MAXDELTA)) ;
    dx := Round(1 + Random(2)) ;
    if dx = 2 then dx := -1;
    dy := Round(1 + Random(2)) ;
    if dy = 2 then dy := -1;
    OffsetRect(wRect,dx * deltax, dy * deltay) ;
    MoveWindow(wHandle, wRect.Left,wRect.Top,wRect.Right - wRect.Left,wRect.Bottom - wRect.Top,true) ;
  end;
  //return to start position
  MoveWindow(wHandle, oRect.Left,oRect.Top,oRect.Right - oRect.Left,oRect.Bottom - oRect.Top,true) ;
end;


------------

Den aktuelle form f.eks.:
  WindowShake(Self.Handle);


*-*-*-*-*-*-*-*-*-*-*
tyv hugget fra kroning ;P
http://www.eksperten.dk/spm/653615

[Pascal Error] Unit2.pas(64): E2003 Undeclared identifier: 'wHandle'

dilling-hansen>>kroning har også lange fingre :)

http://delphi.about.com/od/adptips2005/qt/windowshake.htm

Gad vide hvor Zarko så har den fra...

lukker