scrollbars an/aus-schalten

[Kroko1999]

Ich habe ein Komponente von TCustomControl abgeleitet:

Delphi-Quellcode:

TCustomCtrl = class(TCustomControl)
    constructor Create (AOwner: TComponent); override;
    procedure CreateParams(var Params: TCreateParams); override;
    destructor Destroy; override;
  private
  protected
  public
  published
end;
constructor TCustomCtrl.Create(AOwner: TComponent);
begin
  inherited;
  
end;

procedure TCustomCtrl.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    Style := Style or WS_VSCROLL or WS_HSCROLL;
  end;

end;

destructor TCustomCtrl.Destroy;
begin

  inherited;
end;

mit 2 Scrollbars.

Wie kann ich diese nun anzeigen bzw. nicht anzeigen

[turboPASCAL]

ShowScrollBar ist eine Möglichkeit Dein Problem lösen.

Delphi-Quellcode:

// z.B.:

  ShowScrollBar(Memo1.Handle, SB_VERT, True);


// in der Komponente z. B.:

  ShowScrollBar(Self.Handle, SB_HORZ, Flase);

[Kroko1999]

HATTE ich auch schon gefunden

Danke!