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