newtiersfrm.pas

unit NewTiersFrm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TNewTiersForm }

  TNewTiersForm = class(TForm)
    ledtNumTiers: TLabeledEdit;
    cbPopType: TComboBox;
    lblType: TLabel;
    btnOK: TButton;
    btnAnnuler: TButton;
    procedure FormKeyPress(Sender: TObject; var Key: char);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    class function GetNewTiers(var AProprio: TComponent; var ATypeTiers: String;
      var ANumTiers: string): Word; virtual;
  end;

implementation

{$R *.lfm}

{ TNewTiersForm }

procedure TNewTiersForm.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then btnOK.Click;
end;


{ LAzarus/Delphi : remplacé "var AProprio: TForm;" par"var AProprio: TComponent;" sino "invalid typecast" }
class function TNewTiersForm.GetNewTiers(
  var AProprio: TComponent;
  var ATypeTiers: String;
  var ANumTiers: string): Word;
var
  NewTiersForm: TNewTiersForm;
begin
  NewTiersForm := TNewTiersForm.Create(AProprio);
  try
    Result := NewTiersForm.ShowModal;
    if Result = mrOK then
    begin
      ATypeTiers := NewTiersForm.cbPopType.Text;
      ANumTiers  := NewTiersForm.ledtNumTiers.Text;
    end;
  finally
    NewTiersForm.Free;
  end;
end;

end.