 elundril hat folgendes geschrieben  : |
| Ne, das mit EnableScrollbar hat auch nicht wirklich funktioniert. Oder meintest du etwas was ich nicht bemerkt habe in dem Artikel? |
Also bei mir funktioniert das so.
Siehe Anhang, es wird sogar ohne Manifest der Style benutzt (mit gehts natürlich auch).
Hast du in den CreateParams exakt die dort genannten drin oder auch andere?
Quelltext meines kurzen Tests eben:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| type
TMyControl = class(TCustomControl)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
TForm267 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
end;
procedure TForm267.FormCreate(Sender: TObject);
var
NewControl: TMyControl;
begin
NewControl := TMyControl.Create(Self);
NewControl.Parent := Self;
NewControl.SetBounds(10, 10, 200, 200);
EnableScrollBar(NewControl.Handle, SB_HORZ, ESB_ENABLE_BOTH);
end;
procedure TMyControl.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or WS_HSCROLL or WS_VSCROLL;
end; |
