Vernünftiges resitzverhalten ala Winamp

[gothic_mike]

Hi,

viell. so irgendwie in der richtung:

Delphi-Quellcode:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  if NewHeight > OldH then
    NewHeight := OldH + 20;

  if NewHeight < OldH then
    NewHeight := OldH - 20;

  if NewWidth > OldW then
    NewWidth := OldW + 20;

  if NewWidth < OldW then
    NewWidth := OldW - 20;


  OldW := NewWidth;
  OldH := NewHeight;
  Resize := True;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  OldH := Height;
  OldW := Width;
end;

des macht zwar nicht 100% des, was es soll, aber irgendwie is des schon in die richtung...
muss halt noch etwas verbessert werden.