You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
819 B
42 lines
819 B
unit ufrmDadosCheques;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
|
System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
type
|
|
TfrmDadosCheques = class(TForm)
|
|
lbl_nrcheque: TLabel;
|
|
edt_nrcheque: TEdit;
|
|
lbl_banco: TLabel;
|
|
edt_banco: TEdit;
|
|
lbl_praca: TLabel;
|
|
edt_praca: TEdit;
|
|
btn_ok: TButton;
|
|
btn_cancel: TButton;
|
|
procedure btn_okClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
nr_cheque, banco, praca: string;
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmDadosCheques: TfrmDadosCheques;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmDadosCheques.btn_okClick(Sender: TObject);
|
|
begin
|
|
nr_cheque := edt_nrcheque.Text;
|
|
banco := edt_banco.Text;
|
|
praca := edt_praca.Text;
|
|
end;
|
|
|
|
end.
|