unit uhaupt;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
type
TWinForm =
class(System.Windows.Forms.Form)
{$REGION 'Vom Designer verwalteter Code'}
strict private
/// <summary>
/// Erforderliche Designervariable.
/// </summary>
Components: System.ComponentModel.Container;
lbl_peis: System.Windows.Forms.
Label;
edit_bruttopreis: System.Windows.Forms.TextBox;
lbl_steuer: System.Windows.Forms.
Label;
edit_steuer: System.Windows.Forms.TextBox;
lbl_ergebnis: System.Windows.Forms.
Label;
btn_rechne: System.Windows.Forms.Button;
btn_ende: System.Windows.Forms.Button;
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers -
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure InitializeComponent;
procedure btn_ende_Click(sender: System.
Object; e: System.EventArgs);
procedure btn_rechne_Click(sender: System.
Object; e: System.EventArgs);
{$ENDREGION}
strict protected
/// <summary>
/// Ressourcen nach der Verwendung bereinigen
/// </summary>
procedure Dispose(Disposing: Boolean);
override;
private
{ Private-Deklarationen }
public
constructor Create;
end;
[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
Var
brutto:Integer;
implementation
{$AUTOBOX ON}
{$REGION 'Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers --
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure TWinForm.InitializeComponent;
begin
Self.lbl_peis := System.Windows.Forms.
Label.Create;
Self.edit_bruttopreis := System.Windows.Forms.TextBox.Create;
Self.lbl_steuer := System.Windows.Forms.
Label.Create;
Self.edit_steuer := System.Windows.Forms.TextBox.Create;
Self.lbl_ergebnis := System.Windows.Forms.
Label.Create;
Self.btn_rechne := System.Windows.Forms.Button.Create;
Self.btn_ende := System.Windows.Forms.Button.Create;
Self.SuspendLayout;
//
// lbl_peis
//
Self.lbl_peis.Location := System.Drawing.Point.Create(40, 48);
Self.lbl_peis.
Name := '
lbl_peis';
Self.lbl_peis.TabIndex := 0;
Self.lbl_peis.Text := '
Bruttopreis in Euro';
//
// edit_bruttopreis
//
Self.edit_bruttopreis.Location := System.Drawing.Point.Create(40, 72);
Self.edit_bruttopreis.
Name := '
edit_bruttopreis';
Self.edit_bruttopreis.Size := System.Drawing.Size.Create(120, 20);
Self.edit_bruttopreis.TabIndex := 1;
Self.edit_bruttopreis.Text := '
';
//
// lbl_steuer
//
Self.lbl_steuer.Location := System.Drawing.Point.Create(288, 48);
Self.lbl_steuer.
Name := '
lbl_steuer';
Self.lbl_steuer.Size := System.Drawing.Size.Create(120, 24);
Self.lbl_steuer.TabIndex := 2;
Self.lbl_steuer.Text := '
Mehrwertsteuer in %';
//
// edit_steuer
//
Self.edit_steuer.Location := System.Drawing.Point.Create(296, 72);
Self.edit_steuer.
Name := '
edit_steuer';
Self.edit_steuer.TabIndex := 3;
Self.edit_steuer.Text := '
';
//
// lbl_ergebnis
//
Self.lbl_ergebnis.Location := System.Drawing.Point.Create(112, 128);
Self.lbl_ergebnis.
Name := '
lbl_ergebnis';
Self.lbl_ergebnis.Size := System.Drawing.Size.Create(272, 56);
Self.lbl_ergebnis.TabIndex := 4;
//
// btn_rechne
//
Self.btn_rechne.Location := System.Drawing.Point.Create(48, 216);
Self.btn_rechne.
Name := '
btn_rechne';
Self.btn_rechne.Size := System.Drawing.Size.Create(168, 32);
Self.btn_rechne.TabIndex := 5;
Self.btn_rechne.Text := '
Berechnen';
Include(Self.btn_rechne.Click, Self.btn_rechne_Click);
//
// btn_ende
//
Self.btn_ende.Location := System.Drawing.Point.Create(280, 216);
Self.btn_ende.
Name := '
btn_ende';
Self.btn_ende.Size := System.Drawing.Size.Create(152, 32);
Self.btn_ende.TabIndex := 6;
Self.btn_ende.Text := '
Abbruch';
Include(Self.btn_ende.Click, Self.btn_ende_Click);
//
// TWinForm
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
Self.ClientSize := System.Drawing.Size.Create(552, 270);
Self.Controls.Add(Self.btn_ende);
Self.Controls.Add(Self.btn_rechne);
Self.Controls.Add(Self.lbl_ergebnis);
Self.Controls.Add(Self.edit_steuer);
Self.Controls.Add(Self.lbl_steuer);
Self.Controls.Add(Self.edit_bruttopreis);
Self.Controls.Add(Self.lbl_peis);
Self.
Name := '
TWinForm';
Self.Text := '
WinForm';
Self.ResumeLayout(False);
end;
{$ENDREGION}
procedure TWinForm.Dispose(Disposing: Boolean);
begin
if Disposing
then
begin
if Components <>
nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TWinForm.Create;
begin
inherited Create;
//
// Erforderlich für die Unterstützung des Windows Forms-Designers
//
InitializeComponent;
//
// TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
//
end;
procedure TWinForm.btn_rechne_Click(sender: System.
Object; e: System.EventArgs);
[b]
begin
brutto:=StrToInt(edit_bruttopreis.Text);
end;[/b]
procedure TWinForm.btn_ende_Click(sender: System.
Object; e: System.EventArgs);
begin
Close;
end;
end.