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

[_SolidSnake_]

Hallo Flocke.

Ich hab es bevor Du editiert hast so gemacht:

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs; 

type 
  TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

  Function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, 
                           lparam: Integer ): Integer; stdcall; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  If ClientHandle <> 0 Then Begin 
    If GetWindowLong( ClientHandle, GWL_USERDATA ) <> 0 Then 
      Exit; // cannot subclass client window, userdata already in use 
    SetWindowLong( ClientHandle, GWL_USERDATA, 
                   SetWindowLong( ClientHandle, GWL_WNDPROC, 
                                  integer( @ClientWindowProc))); 
  End; 
end; 

Function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, 
                           lparam: Integer ): Integer; stdcall; 
Var 
  f: Pointer; 
Begin 
  f:= Pointer( GetWindowLong( wnd, GWL_USERDATA )); 
  Case msg of 
    WM_NCCALCSIZE: Begin 
        If ( GetWindowLong( wnd, GWL_STYLE ) and 
             (WS_HSCROLL or WS_VSCROLL)) <> 0 
        Then 
          SetWindowLong( wnd, GWL_STYLE, 
                         GetWindowLong( wnd, GWL_STYLE ) 
                         and not (WS_HSCROLL or WS_VSCROLL)); 
      End; 
  End; 
  Result := CallWindowProc( f, wnd, msg, wparam, lparam ); 
End; 

end.

Hat auch funktioniert, allerdings finde ich deine Version sauberer.

Da hab ich nun nicht mehr dran gedacht, das die Reihenfolge etwas damit zu tun haben könnte

Jedenfalls vielen Dank an alle die mir geholfen haben

Da ich selbst bei Google und in anderen Foren 2 Tage an diesem Problem klebte und immer die gleiche Fragen gesehen aber nie eine Antwort gefunden habe hoffe ich das hiermit auch den anderen geholfen werden kann und werden den Code wenn keiner was dagegen hat in den anderen Foren wo ich die gleiche Frage gefunden habe als Antwort posten.

Anbei nochmal das ganze als Zip.

Gruß
Micha