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

[_SolidSnake_]

Hallo Flocke

Danke erstmal für den Hinweis. Leider hab ich noch nichts mit abgeleiteten Fenstern gemacht und komme da auch nicht wirklich weiter.

Ich hab mal ein wenig gegoogelt und einen Code für das ausschalten von den Scrollbars in einem Grid gefunden. Den hab ich ein wenig abgeändert aber ich bekomme immer noch eine Fehlermeldung das ein = erwartet aber ein '(' gefunden wurde. danach liegt der Cursor bei

procedure TNoScroll.WMNCCalcSize(var Msg: TMessage); Der komplette Code sieht nun so aus

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TNoScroll = class(TControl)
  private
    procedure WMNCCalcSize(var Msg: TMessage);
      message WM_NCCALCSIZE;
  end;

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



var
  Form1: TForm1;

implementation

{$R *.dfm}

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

end.

Wenn ich die Codezeile von Dir eintrage

ShowScrollBar(HWnd, SB_BOTH, 0 /*false*/); Bekomm ich Fehlermeldungen das er statt dem / und * ein @ erwartet.

Gruß
Micha