десингтайм

← →
zep © (2004-06-05 15:23) [0]

привет ALL подскажите как запретить изменение размеров компанента в десингтайме

← →
Mim1 © (2004-06-05 15:26) [1]

Вообще запретить? или только через инспектор обьектов, или тольео мышкой?

← →
KilkennyCat © (2004-06-05 15:32) [2]

Задать ограничение размера, констрайзсайз - типа так произносится :)

← →
zep © (2004-06-05 15:41) [3]

есть компанент предком его является Tpanel и на панели располежены другие компаненты и надо чтобы когда пользователь ставил компанент на форму он не мог ее мышкой уменишить или растянуть

← →
Гаврила © (2004-06-05 16:11) [4]

У компонента есть свойство ComponentState
там есть флаг. по которому можно понять, какой тайм - дезайн или ран

← →
jack128 © (2004-06-05 16:21) [5]

> подскажите как запретить изменение размеров компанента в
> десингтайме
контрола, я так понимаю?
Перекрыть SetBounds

procedure TMySuperControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
if csDesigning in ComponentState then
begin
AWidth := Width;
AHeight := Height;
end
inherited;
end;

← →
Гаврила © (2004-06-05 17:02) [6]

>>jack128 © (05.06.04 16:21) [5]

Наверно все таки не совсе так
потому что по inherited все выполнится в любом случае

← →
zep © (2004-06-05 17:27) [7]

а если можно попадробние
>>jack128 © (05.06.04 16:21) [5]
Наверно все таки не совсе так
потому что по inherited все выполнится в любом случае

← →
Petr V. Abramov © (2004-06-05 18:25) [8]

CanResize поможет

← →
default © (2004-06-05 18:58) [9]

procedure TMySuperControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
if not csDesigning in ComponentState then inherited
end;

← →
Petr V. Abramov © (2004-06-05 19:05) [10]

procedure TMySuperControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
if not csDesigning in ComponentState then inherited
end;
А как человек будет менять местоположение компонента? ;-)
Итого:
procedure TMySuperControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
if (csDesigning in ComponentState) and not (csLoading in ComponentState) then
begin
AWidth := Width;
AHeight := Height;
end
inherited;
end;

function CanResize(var NewWidth, NewHeight: Integer): Boolean; override; begin Result := (not (csDesigning in ComponentState) or (csLoading in ComponentState)) and inherited CanResize(NewWidth, NewHeight) end;

У меня короче :)

всем спасибо

десингтайм Найти похожие ветки