TÉMA:

unit kezd;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  DBGrids, Buttons;
 
type
 
  { TForm6 }
 
  TForm6 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    uzi: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form6: TForm6;
 
implementation
 
uses
  baustelle, munkaadatb, wtbau, epulet;
 
{$R *.lfm}
 
{ TForm6 }
 
procedure TForm6.BitBtn2Click(Sender: TObject);
begin
  Form7.ShowModal;
end;
 
procedure TForm6.DBGrid1CellClick(Column: TColumn);
var
  kiir: string;
begin
  baustell_ID := Form6.DBGrid1.DataSource.DataSet[DBGrid1.Columns[3].FieldName];
  uzi.Caption := IntToStr(baustell_ID);
//  Form1.Label2.Caption := IntToStr(baustell_ID);
  Form4.Label4.Caption:=IntToStr(baustell_ID);
  Form1.ShowModal;
end;
end.

unit wtbau;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Menus;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses munkakod, munkafelv, epulet, lekerdez, munkaadatb;
 
 
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  application.terminate;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Form3.ShowModal;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Form4.ShowModal;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  Form5.ShowModal;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Label2.Caption:=IntToStr(baustell_ID);
end;
end.

var
  DataModule1: TDataModule1;
  baustell_ID: integer;
 
implementation
......

procedure TForm6.DBGrid1CellClick(Column: TColumn);
var
  kiir: string;
begin
  baustell_ID := Form6.DBGrid1.DataSource.DataSet[DBGrid1.Columns[3].FieldName];
  uzi.Caption := IntToStr(baustell_ID);                              //   itt még simán kiírja az eredményt
  Form1.Label2.Caption := IntToStr(baustell_ID);              //   átmenetileg így transzportálom az értéket a következő Form-ba.
  Form1.ShowModal;
end;