| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Куда пропадают контролы : ( [D7, Win2k]

tosha ©   (2005-05-20 16:01:00) 

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

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;

---

ЮЮ   (2005-05-26 11:52:00) [1]

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

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

---

malkolinge   (2005-05-24 18:38:00) [2]

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

---

tosha   (2005-05-20 16:02:00) [3]

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

---

Наверх