33 lines
592 B
ObjectPascal
33 lines
592 B
ObjectPascal
unit UnitRelais;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, UInit,Unit1;
|
|
|
|
type
|
|
TF_Relais = class(TForm)
|
|
Label1: TLabel;
|
|
LabeledEdit1: TLabeledEdit;
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Déclarations privées }
|
|
public
|
|
{ Déclarations publiques }
|
|
end;
|
|
|
|
var
|
|
F_Relais: TF_Relais;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TF_Relais.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
L_Relais[NumeroEnCours].nom:=LabeledEdit1.Text;
|
|
end;
|
|
|
|
end.
|