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

[_SolidSnake_]

Hallo zusammen.

Ist es möglich die Scrollbar in einer MDI-Form abzuschalten ? Ich hab bereits gegoogelt und auch hier im Forum gesucht aber leider nichts passendes gefunden.

Gruß
Micha

[Flocke]

Es könnte so gehen (nicht ausprobiert):

Delphi-Quellcode:

SetWindowLong(Form1.ClientHandle, GWL_STYLE,
  GetWindowLong(Form1.ClientHandle, GWL_STYLE) and (not (WS_HSCROLL or WS_VSCROLL)));
SetWindowPos(Form1.ClientHandle, 0, 0, 0, 0, 0, SWP_FRAMECHANGED or
  SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER);

"Form1" durch den Namen des MDI-Hauptformulars ersetzen.

[_SolidSnake_]

Hallo Flocke.

Danke für die Antwort.

Ich hab den Code in das onCreate-Ereigniss der MDI-Form geschrieben aber es funktioniert leider nicht. Ich bekomme immer noch die Scrollbars wenn ich das MDI-Child über den Rand der Form bewege.

Gruß
Micha

[Flocke]

Wie ich geschrieben hatte: nicht ausprobiert.

Probiers mal in FormShow bzw. alternativ auf Menüeintrag oder Knopfdruck. Wenn's geht, dann müsste man das auch dynamisch ausschalten können wenn die Scrollbars schon angezeigt werden.

Wenn's nicht geht, dann kann man es wohl (mit einfachen Mitteln) überhaupt nicht ausschalten.

[_SolidSnake_]

Hallo.

Ich hab es nun in mehreren Möglichkeiten ausprobiert aber es bringt leider nichts, die Scrollbar wird immer wieder angezeigt.

Ich hab mir schon die halbe nacht den Kopf darüber zerbrochen und in zahlreichen Foren nach einer Lösung gesucht. Ich glaube fast, das man mit der Scrollbar wohl leben muss

Danke für die Hilfe

Gruß
Micha

[Noch Fragen]

Hallo zusammen,
setzt doch mal die Eigenschaft "Visible" der HorizScrollBar auf false.

Genauso auch die vertikale.

Gruß

Martin

[_SolidSnake_]

Hallo

Danke für die Antwort, aber das hab ich als erstes Versuch

Da reagiert er leider überhaupt nicht drauf.

Gruß
Micha

[Flocke]

Einen Hinweis habe ich gerade noch gefunden, habe aber gerade keine Zeit näher drauf einzugehen.

1. Du musst die Fensterprozedur von Form1.ClientHandle erweitern (Stichwort: GWL_WNDPROC)
2. Du musst WM_NCCALCSIZE abfangen und vor dem Weiterleiten an den Default-Handler
ShowScrollBar(HWnd, SB_BOTH, 0 /*false*/); aufrufen.

[_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

[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)