Quelle  Feedback.~pas   Sprache: unbekannt

unit Feedback;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFeedform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Vorname: TEdit;
    Name: TEdit;
    Email: TEdit;
    Kommentar: TMemo;
    Absenden: TButton;
    Bewertung: TComboBox;
    Verwerfen: TButton;
    constructor Create(Owner: TComponent); override;
    procedure AbsendenClick(Sender: TObject);
    procedure VerwerfenClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  public
    { Déclarations publiques }
    Sent:boolean
  end;


var
  Feedform: TFeedform;

implementation

{$R *.dfm}

constructor TFeedform.Create(Owner: TComponent);
begin
  inherited;
  Sent:=false;
  Vorname.Clear;
  Name.Clear;
  Email.Clear;
  Kommentar.Clear;
end;

procedure TFeedform.AbsendenClick(Sender: TObject);
begin
   if vorname.Text='' then Label1.Color:=clRed
   else if name.Text='' then Label2.Color:=clRed
   else if email.Text='' then Label3.Color:=clRed
   else if Bewertung.ItemIndex=-1 then Label6.Color:=clRed
   else begin
     Sent:=true;
     Close
   end;
end;

procedure TFeedform.VerwerfenClick(Sender: TObject);
begin
   Sent:=false;
   Close;
end;

procedure TFeedForm.FormPaint(Sender: TObject);
begin
  Absenden.SetFocus
end;

end.