Ist es möglich die Scrollbar in MDI-Form abzuschalten ?

[Angel4585]

warum TNoScroll? mach das doch direkt in TForm1

Delphi-Quellcode:

  type 
  TForm1 = class(TForm) 
  private     
    procedure WMNCCalcSize(var Msg: TMessage); 
      message WM_NCCALCSIZE; 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 



var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.WMNCCalcSize(var Msg: TMessage); 
const 
  Scrollstyles = WS_VSCROLL or WS_HSCROLL; 
var 
  Style: Integer; 
begin 
  Style := GetWindowLong(Self.ClientHandle, GWL_STYLE); 
  if (Style and Scrollstyles) <> 0 then 
    SetWindowLong(Self.ClientHandle, GWL_STYLE, Style and not Scrollstyles); 
  inherited; 
end;

so sollte das gehen..(nicht getestet)