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

[_SolidSnake_]

Hallo.

Erstmal Danke an alle für die Hilfe.

Hallo Angel

Ich hab bei Style beim starten einen Wert von 0 gehabt.

Ich benutze Delphi 2005 Architect. Ich weiss, das ist für einen Anfänger eine heftig große Version, aber ich hab sie von meinem Chef für nen Apfel und nen Ei bekommen und zugegriffen. Er wollte eigentlich Delphi erlernen und hat es dann doch hingeschmissen.
Und da ich selbst gerade im Fernstudium zum Programmierer C++ und VBA stecke (Anfang) dachte ich mir, da es schon eine Ähnlichkeit gibt, versuch ich mich auch noch ein wenig an Delphi, was ich später eh als Hauptsprache weiterführen möchte.

--------------------------------------------------------------------------------------------

Hallo Teebee

Ich hab den Code wie angegeben eingetragen aber ich bekomme den Fehler "[Fehler] Unit1.pas(34): E2036 Variable erforderlich" und "[Fehler] Unit1.pas(12): E2065 Ungenügende Forward- oder External-Deklaration: 'TForm1.ClientWindowProc'".

Delphi-Quellcode:

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){hier bleibt der Cursor bei der Fehlermeldung stehen}));
  End;
end;

Der komplette Code sieht nun so aus:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    Function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam,
                           lparam: Integer ): Integer; stdcall;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

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.

--------------------------------------------------------------------------------------------

Hallo Flocke

Ich hab mir unter Google soweit schonmal was über GWL_WNDPROC rausgesucht und bin dann auf Subclassing gestossen. Allerdings werd ich mich damit wohl erstmal tiefer beschäftigen müssen da ich in die Richtung noch garkeine Ahnung habe.

Gruß
Micha