|
|
![]() |
![]() |
![]() |
Как
запретить изменение размера моего компонента в 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 ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
