1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 |
- unit uSelectCom;
- {$mode objfpc}{$H+}
- interface
- uses
- Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
- StdCtrls, EditBtn, ExtCtrls, MCSLSU;
- type
- { TfrmSelectCom }
- TfrmSelectCom = class(TForm)
- ButtonPanel1: TButtonPanel;
- cbServices: TComboBox;
- Label1: TLabel;
- Label2: TLabel;
- Label3: TLabel;
- procedure ButtonPanel1Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormShow(Sender: TObject);
- private
- { private declarations }
- public
- { public declarations }
- end;
- var
- frmSelectCom: TfrmSelectCom;
- implementation
- {$R *.lfm}
- { TfrmSelectCom }
- var lsuCode : integer;
- procedure TfrmSelectCom.FormCreate(Sender: TObject);
- begin
- MCSLSU.MakeForm('frmSelectCom', 'ID_', frmSelectCom );
- end;
- procedure TfrmSelectCom.ButtonPanel1Click(Sender: TObject);
- begin
- end;
- procedure TfrmSelectCom.FormShow(Sender: TObject);
- begin
- MCSLSU.MakeForm('frmSelectCom', 'ID_', frmSelectCom );
- end;
- end.
|