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
