Компоненты

Здравствуйте! Люди, подскажите как в модуле1 с формой1 использовать компоненты находящиеся на другой форме, например второй

0

Здраствуйте, у меня возникла такая проблема... У меня находятся элементы в Листбоксе и мне нужно при нажатии на кнопку удалять 1 элемент, тот который я выделяю мышкой в листе, но у меня почему-то удаляются все....вот мой код

procedure DElelementFromList (var start:TpointVokzal; DelKey:string);
var WP,PP:TpointVokzal;
begin
if start=nil then exit;
PP:=nil;
WP:=start;
while (WP<>nil) and (WP^.NameGorod<>delkey) do
begin
PP:=WP;
WP:=WP^.NextG;
end;
if WP=nil then exit;
if PP=nil
then start:=Start^.NextG
else PP^.NextG:=WP^.NextG;
dispose(WP);
end;
Вызов на кнопку....
procedure TForm1.N11Click(Sender: TObject);
var delkey:string;
begin
DElelementFromList(head,Form1.ListVokzal .Items.Strings[listVokzal.ItemIndex]);
ShowINList(head, form1.ListVokzal);
end;


Head глобальная переменная...

Добавлено через 2 минуты
shekzheka, Form2.Listbox1 к примеру...а там можешь любой компонент использовать....

0

procedure TNewVokzal.Button1Click(Sender: TObject);
var Pnew:TpointVokzal;LB:Tlistbox;
begin
New(Pnew);
Pnew^.NameGorod:=VvediteGorod.Text;
Pnew^.ColMest:=StrToInt(VvediteColMest.t ext);
Pnew^.Area:=StrToFloat(VveditePlo.Text);
Pnew^.NextG:=nil;
AddToEnd(head,Pnew);
ShowList(head,ListBox1); ________________ошибка
NewVokzal.Close;
end;

У меня очень простой вопрос, помогите пожалуйста... вот в тексте у меня есть тип указателя TpointVokzal как мне его автоматом поменять на допустим TpointReys автоматом...то есть что бы не вручную....что б раз и во всех процедурах поменялось..я знаю так можно преподаватель делал только вот не запомнил как....) заранее большое спасибо..)

Добавлено через 6 минут
У меня очень простой вопрос, помогите пожалуйста... вот в тексте у меня есть тип указателя TpointVokzal как мне его автоматом поменять на допустим TpointReys автоматом...то есть что бы не вручную....что б раз и во всех процедурах поменялось..я знаю так можно преподаватель делал только вот не запомнил как....) заранее большое спасибо..)

Добавлено через 58 минут
Всем Привет!!!! У меня очень простой вопрос, помогите пожалуйста... вот в тексте у меня есть тип указателя TpointVokzal как мне его автоматом поменять на допустим TpointReys автоматом...то есть что бы не вручную....что б раз и во всех процедурах поменялось..я знаю так можно преподаватель делал только вот не запомнил как....) заранее большое спасибо..)

0