Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Не работает стандартная функция ComponentCount! В чем дело?   Найти похожие ветки 

 
Dimases   (2004-06-21 22:54) [0]

procedure clear;
var  i: Integer;
begin
for i := 0 to ComponentCount-1 do
 if Components[i] is TButton
   then
     TButton(Components[I]).Visible:=false ;
end;

"Components[I]" так же вызывает ошибку типа Undeclared identifier. Что не то?

Delphi 5


 
RealRascal ©   (2004-06-21 22:57) [1]

(cmponents[i] as TButton).visible:=False


 
GuAV ©   (2004-06-21 22:58) [2]

>стандартная функция ComponentCount
это не стаднартная функция а метод. метод формы например.


 
RealRascal ©   (2004-06-21 23:01) [3]

задекларируй эту процедуру внутри объявления TForm
или
указывай
Form1.ComponentCount


 
GuAV ©   (2004-06-21 23:02) [4]

вернее componentcount, конечно, не метод а свойство.
для того, чтоб это работало clear должен быть методом того объекта, откуда требуется удалить компоненты.


 
RealRascal ©   (2004-06-21 23:08) [5]


>  [3] RealRascal ©   (21.06.04 23:01)
> задекларируй эту процедуру внутри объявления TForm

ошибочка вышла
внутри объявления TForm1


 
evvcom ©   (2004-06-22 00:19) [6]


> RealRascal

Бред.

См. GuAV ©   (21.06.04 23:02) [4]
или типа этого:
procedure HideButtons(ParentComponent: TComponent);
var i: Integer;
begin
for i := 0 to ParentComponent.ComponentCount-1 do
if ParentComponent.Components[i] is TButton
then
  TButton(ParentComponent.Components[I]).Visible := false;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.07.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
8-1082449330
Sanchos
2004-04-20 12:22
2004.07.04
Воспроизвести mp3?


1-1087405140
Хазей
2004-06-16 20:59
2004.07.04
Запись числа в файл


1-1087878481
Riland
2004-06-22 08:28
2004.07.04
Проблема с dsgnintf.dcu


14-1086883702
DelphiN!
2004-06-10 20:08
2004.07.04
Изменение текстовых файлов в InstallSheild Expree 3.5


9-1078941377
SoulSilver
2004-03-10 20:56
2004.07.04
Подкиньте идею (в общем хотя бы) насчет 2D игры