FindComponent

[WOLFak]

добрый вечер сново
проблема->

if timka>5 then
  begin
   form1.countries1.Timer2.Enabled:=false;
   with (FindComponent(Name) as TComboBox) do
    begin
     visible:=false;
    end;
  end;

подскожите пожалуйста
что тут неправильно?
Name ComboBox1
оно находит компонент а потом на visible ошибка(((

[mihali4]

Вообще-то, я бы сделал так:
with TComboBox(FindComponent(Name)) do
visible:=false;
Кстати, подобный пример есть и во встроенном хэлпе - достаточно поставить курсор на слово FindComponent и тыркнуть F1

[WOLFak]

111.jpg
вот ето и тогда вылетало
компонент который ищется находится на фрейме - ет ничего?
ну я хелп юзал и ведел то ток была эта ошибка и я решил немного передалать

[mihali4]

вот ето и тогда вылетало

Когда "тогда"?
Хорошо, делаем "по разделениям":

mycomp:=FindComponent(Name);
if ((mycomp<>nil) and (mycomp is TComboBox)) then
(mycomp as TComboBox).Visible:=False;

Я надеюсь, NAME хоть - нормальное имя компонента?

[WOLFak]

Сообщение от mihali4

Я надеюсь, NAME хоть - нормальное имя компонента?

ммм.... нормальное?
поставил последний вариант - ничего не произошло ни исчезания ни ошибки

name:='ComboBox1';

а этот бокс находится --- >

form1.countries1.ComboBox1

countries1 является фреймом

mycomp:=FindComponent(Name);
if ((mycomp<>nil) and (mycomp is TComboBox)) then
(mycomp as TComboBox).Visible:=False;

этот дает nil и ошибки нет и visible := false тоже нет

[WOLFak]

помогите пожалуйста очн надо
можт я не правильно думаю
задумка такая нажимая на Shape на картинке появляется рядом КомбоБокс и если 6 сек его не трогают исчезает
все это на фрейме
222.jpg

[mihali4]

задумка такая нажимая на Shape на картинке появляется рядом КомбоБокс и если 6 сек его не трогают исчезает
все это на фрейме

Ну так и используйте для поиска его полное имя, с указанием принадлежности к родителю - фрейму - countries1.ComboBox1
Он у вас заранее создан - на этапе проектирования формы?
Если динамически создаете, то назначьте ему родителя.

[WOLFak]

все пасибо разобрался

[ierecumi]

а мне не поможете с FindComponent разобраться?

procedure TForm1.Timer1Timer(Sender: TObject);
var
k:integer;
begin
for k:=0 to 10 do
begin
if weapon <> nil then
for m:=1 to 10 do
TImage(FindComponent('weapon'+IntToStr(m))).Top:=weapon.Top-1;
{weapon.Top:=weapon.Top-1;}
end;
end;

[Прик]

2 ierecumi

procedure TForm1.Timer1Timer(Sender: TObject);
var
  k, m : integer;
  C : TComponent;
begin
  for k := 0 to 10 do begin
    if weapon <> nil then
      for m := 1 to 10 do begin
        C := FindComponent('weapon'+IntToStr(m));
        if C <> nil then begin
          TImage(C).Top:=weapon.Top-1;
          if TImage(C).Top < 0 then
            FreeAndNil(C);
        end;
      end;
{weapon.Top:=weapon.Top-1;}
  end;
end;

В дельфийском таймере интервал 10 ставить бессмысленно. Дай, творец, ему и с 50 мск справиться.