-
Здравствуйте. Возник следующий вопрос. Существует в Delphi стандартный компонент ScrollBox - панель с возможностью отображения полос прокрутки при выходе вложенных компонентов за ее пределы. Так вот, в том компоненте имеется стандартная возможность редактирования полос прокрутки в режиме дизайна формы (прокручивания их).
Если взять, к примеру, стандартный компонент Panel и такой же стандартный ScrollBar и создать на основе TPanel свой компонент, где будут два поля - вертикальная и горизонтальная полосы прокрутки, то как дать им возможность прокрутки в режиме дизайна?
-
У TPanel нет скролов. Этим она и отличается от TScrollBox. Зачем из TPanel делать TScrollBox
-
в Д7 работает: procedure TMyControl.WndProc(var Message: TMessage); var p: ^TComponentState;
begin
if (csDesigning in ComponentState) then
begin
p := @ComponentState;
p^ := p^ - [csDesigning];
inherited;
p^ := p^ + [csDesigning];
end
else
inherited;
end;
|