Передать в процедуру имя формы (Form1 или Form2)

[tarakan1983]

Пишу БД для учета показания спидометра и учета топлива.

Для кахдого вида транспорта(легковой, грузовой, автобус... и еще...)есть своя форма.

У каждой формы есть Edit'ы с одноименным название "Расход топлива", "Спидометр", "Пробег".

Есть форма на которой рассчитывается "Расход топлива", "Спидометр", "Пробег". Как по её закрытию (onclose), передавать данные, в зависимости от активной формы.

Т.е. я понимаю так, что должна быть процедура где edit'ам присваиваются данные

Procedure lalalal;
Form1.RasxodtoplivaEdit.text:=1
Form1.ProbegEdit.text:=50
и т.д.

а как вместо form1 указать переменную??
типа так

Procedure lalalal(NameForm:Tform);
NameForm.RasxodtoplivaEdit.text:=1
NameForm.ProbegEdit.text:=50
и т.д.

Возможно это?

[mihali4]

Вполне возможно и даже очень просто. Вот, набросал примерчик :

procedure TForm1.btn4Click(Sender: TObject);
begin
GoClick(Form2);
end;

procedure TForm1.GoClick(Form: TForm);
var fnd: TComponent;
begin
with Form do
fnd:=FindComponent('lbl1');
(fnd as TLabel).Caption:='aaa';
end;

Проверку существования формы, компонента на ней, замену лэйбла на эдит в процедуре сделаете самосоятельно.

[tarakan1983]

Понял, спасибо