33 lines
457 B
ObjectPascal
33 lines
457 B
ObjectPascal
unit frmUnit4;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, System.Classes, Vcl.Forms, Vcl.Controls, Vcl.StdCtrls,
|
|
ddPlugin_TLB;
|
|
|
|
type
|
|
TformDodavky = class(TForm)
|
|
btnOK: TButton;
|
|
procedure btnOKClick(Sender: TObject);
|
|
private
|
|
public
|
|
Helios: IHelios;
|
|
idOrg: integer;
|
|
end;
|
|
|
|
var
|
|
formDodavky: TformDodavky;
|
|
|
|
implementation
|
|
uses ComObjekt, helUtils;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TformDodavky.btnOKClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|