En el form1
Código Delphi
[-]
private
public
id_tit : integer;
id_dir : integer;
id_com : integer;
id_tra : integer;
end;
var
Form1: TForm1;
Mando a llamar al form2
Código Delphi
[-]
procedure TForm2.JvBitBtn4Click(Sender: TObject);
var f : tForm2;
begin
f:= Tform2.Create(application);
f.Image1.Picture.LoadFromFile(form1.logo);
try
f.ShowModal;
finally
f.Free;
Label7.Caption :=IntToStr(id_dir); end;end;
Estabdo en el form2 esto es lo que sucede caundo oprimo el boton para asignarle el valor a la variable declarada en el form1.
Código Delphi
[-]
procedure TForm2.JvBitBtn1Click(Sender: TObject);
begin
form1.id_dir := strtoint(Edit1.Text);
end;