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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как запретить изменение размера моего компонента в 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;