componenty

← →
race1 © (2002-08-29 06:52) [0]

это всё просто заммечательно, но как обратится к копоненту на д. форме по имени компонента? "form2.listbox1" неработает

← →
MBo © (2002-08-29 06:53) [1]

в 1 форме uses unit2 написал?

← →
race1 © (2002-08-29 07:14) [2]

писал-писал

← →
MBo © (2002-08-29 07:16) [3]

а как именно не работает?

← →
race1 © (2002-08-29 08:38) [4]

я пишу
(findcomponent("Form2.ListBox1")as TListBox.Clear
а она мне ассес виолятион

← →
MBo © (2002-08-29 08:42) [5]

И она права!!!

Надо примерно так

Compon:=Form2.FindComponent("ListBox1");
if Compon<>nil then
(Compon as TListBox).Clear;

а что, создаешь динамически?
если нет, то ни к чему и искать

← →
Eugene © (2002-08-29 08:44) [6]

Глупости, все должно работать.
unit Mypass1 //(Form1)

uses
Mypass2 // (Form2)

....

procedure TForm1.ButtonClick(Sender: TObject)
Begin
Fomr2.Label1.caption:="Все должно работать";
end;

Проверь, так ли у тебя.
А FindComponent здесь не нужен.

race1 © (29.08.02 08:38)
А что бы она тебе не ассес виолятион
надо проверять на результат, то есть не быть таким самоуверенным,
чир findcomponent обязательно вернет тебе компонент даже если его нету
Для проверки используй оператор IF

Тем более, что findcomponent(" Form2.ListBox1") всегда вернет nil

2MBo: да, создаю динамически. твой вариант работает, списибо!
2Anatoly Podgoretsky: в моей проге по идее они должный быть хоть как (компоненты эти), если их нету - ошибка в др. месте..

componenty Найти похожие ветки