Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011