Куда пропадают контролы : (

← →
tosha (2005-05-20 16:01) [0]

Почему переменная С уменя всегда равна нулю, сколько-бы контролов я не положил на мою компоненту ?

type
TPipePanel = class(TPanel)
private
FScrollBar: TScrollBar;
FZoomBar: TZoomBar;
....

constructor TPipePanel.Create(AOwner: TComponent);
var I, C: Integer;
begin
inherited;
FCaption := "";
Height := 200;
Width := 400;
FZoomBar := TZoomBar.Create(Self);
with FZoomBar do begin
Align := alTop;
Parent := Self;
end;
FScrollBar := TScrollBar.Create(Self);
with FScrollBar do begin
Align := alBottom;
Parent := Self;
OnChange := ScrollBarChange;
end;
C := 0;
for I := 0 to ControlCount - 1 do Inc(C);
end;

← →
tosha (2005-05-20 16:02) [1]

Извиняюсь С := 2

← →
malkolinge © (2005-05-24 18:38) [2]

А сколько должно быть ?

Так как по коду эта С нахрен никому не нужна, оптимизатор выкинул этот код.

Добавь, хотя бы, Tag := C;

Куда пропадают контролы : ( Найти похожие ветки