Does anyone know how to include two TTreeView in same Tform: one using left Scrollbar and the other a normal Right Scrollbar?
Does anyone know how to include two TTreeView in same Tform: one using left Scrollbar and the other a normal Right Scrollbar?
Thanks.
Augusto.
Thanks.
Augusto.
type
ReplyDeleteTTreeView = class(Vcl.ComCtrls.TTreeView)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TTreeView.CreateParams(var Params: TCreateParams);
begin
inherited;
if Tag = 1 then
Params.ExStyle := Params.ExStyle or WS_EX_LEFTSCROLLBAR;
end;
Or create and register your own TTreeView decendant with a property that you can set in the OI.
Ok, I read it again.. sorry... my fault! :)
ReplyDeletewao, that was fast, I will try this afternoon that code. I will let you know.
ReplyDeleteThank you.