StringGrid soll Form komplett füllen

[Matze]

Hi!

Mach doch die Form transparent, so sieht's dann aus (Anhang).

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle:=bsNone;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  AControl: TControl;
  A, Margin, X, Y, CtlX, CtlY: Integer;
  FullRgn, ClientRgn, CtlRgn: THandle;
begin
  Margin    := (Width - ClientWidth) div 2;
  FullRgn   := CreateRectRgn(0, 0, Width, Height);
  X         := Margin;
  Y         := Height - ClientHeight - Margin; 
  ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); 
  CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF); 
  for A := 0 to ControlCount - 1 do
  begin 
    AControl := Controls[A]; 
    if (AControl is TWinControl) or (AControl is TGraphicControl) then with AControl do  
      begin 
        if Visible then
        begin 
          CtlX   := X + Left; 
          CtlY   := Y + Top; 
          CtlRgn := CreateRectRgn(CtlX, CtlY, CtlX + Width, CtlY + Height); 
          CombineRgn(FullRgn, FullRgn, CtlRgn, RGN_OR);
        end; 
      end; 
  end; 
  SetWindowRgn(Handle, FullRgn, True);

end;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]