91 lines
1.9 KiB
ObjectPascal
91 lines
1.9 KiB
ObjectPascal
unit frmInputNum;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
|
|
|
|
type
|
|
TformInputNum = class(TForm)
|
|
edtNum: TEdit;
|
|
edtNum2: TEdit;
|
|
btnOK: TButton;
|
|
btnZrusit: TButton;
|
|
lblPopis2: TLabel;
|
|
lblPopis1: TLabel;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure edtNumKeyPress(Sender: TObject; var Key: Char);
|
|
procedure btnOKClick(Sender: TObject);
|
|
procedure btnZrusitClick(Sender: TObject);
|
|
procedure edtNum2KeyPress(Sender: TObject; var Key: Char);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
value, value2: Extended;
|
|
edtPopis, edtPopis2, titulek: string;
|
|
end;
|
|
|
|
var
|
|
formInputNum: TformInputNum;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TformInputNum.btnOKClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
|
|
procedure TformInputNum.btnZrusitClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
|
|
|
|
procedure TformInputNum.edtNum2KeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if (Key=#13) then
|
|
btnOKClick(Sender);
|
|
end;
|
|
|
|
|
|
|
|
procedure TformInputNum.edtNumKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if (Key=#13) then
|
|
if (edtNum2.CanFocus) then
|
|
edtNum2.SetFocus;
|
|
end;
|
|
|
|
|
|
|
|
procedure TformInputNum.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
edtNum.Text:= Trim(edtNum.Text);
|
|
edtNum2.Text:= Trim(edtNum2.Text);
|
|
if not(TryStrToFloat(edtNum.Text, value)) then
|
|
value:= -1;
|
|
if not(TryStrToFloat(edtNum2.Text, value2)) then
|
|
value2:= -1;
|
|
Action:= caFree;
|
|
end;
|
|
|
|
|
|
|
|
procedure TformInputNum.FormShow(Sender: TObject);
|
|
begin
|
|
Self.Caption:= titulek;
|
|
lblPopis1.Caption:= edtPopis;
|
|
edtNum.Text:= '';
|
|
lblPopis2.Caption:= edtPopis2;
|
|
edtNum2.Text:= '';
|
|
edtNum.SetFocus;
|
|
end;
|
|
|
|
end.
|