[UpdateLayeredWindow] Vergrößerbare Form realisieren

[Yheeky]

Hi,

ich habe eine Optionsform, die ich mit einem transparenten Rahmen zeichne lasse. Das mache ich so:

Delphi-Quellcode:

procedure TfrmOptionen_Maske.FormCreate(Sender: TObject);
var Alpha : Boolean;
    ResStream : TResourceStream;
begin
Bit := TBitmap32.Create;

ResStream := TResourceStream.Create(Hinstance, 'BackOpt', PChar('RC_DATA'));
try
   LoadPNGIntoBitmap32(Bit, ResStream, Alpha);
finally
   ResStream.Free;
end;

  SetWindowLong(Handle, GWL_EXSTYLE,
  GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED {or WS_EX_TRANSPARENT});
  
  BlendF.BlendOp := AC_SRC_OVER;
  BlendF.BlendFlags := 0;
  BlendF.SourceConstantAlpha := 255;
  BlendF.AlphaFormat := AC_SRC_ALPHA;
  P := Point(0, 0);
  Size.cx := Bit.Width;
  Size.cy := Bit.Height;

  UpdateLayeredWindow(Handle, 0, nil, @Size, Bit.Handle, @P, 0, @BlendF, ULW_ALPHA);

  Left := frmOptionen.Left;
  Top := frmOptionen.Top;

end;

Das Problem hierbei ist nun, dass das Zeichnen der Form nur funktioniert, wenn die Form in der Größe nicht verändert werden kann. Wie kann ich mit diesem Prinzip Sizable Forms erstellen?