Как запретить изменение размера моего компонента в design-time?

Поместите в конструктор компонента код, устанавливающий размеры по умолчанию.
Переопределите метод SetBounds и проверяйте в нем "componentstate". Если компонет
находится режиме "design-time" (csDesigning in ComponentState) просто передавайте
значения ширины и высоты (width и heights) компонента по умолчанию (в нашем
примере 50) методу класса-предка.


procedure TVu.SetBounds(ALeft : integer; ATop : integer; AWidth : integer;
                        AHeight : integer);
begin
        if csdesigning in componentstate then
        begin
                AWidth := 50;
                AHeight := 50;
                inherited;  //вызываем унаследованный от предка метод
        end;
end;
 
« Предыдущая статья   Следующая статья »