SSL Feedback.pas

unit Feedback;
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
interface
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Utilities, language;
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
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);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormClick(Sender: TObject);
  public
    { Déclarations publiques }
    Done, Stopped:boolean;
  end;
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
implementation
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
{$R *.dfm}
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
constructor TFeedform.Create(Owner: TComponent);
begin
  inherited;
  Done:=false;
  Stopped:=false;
  Vorname.Clear;
  Name.Clear;
  Email.Clear;
  Kommentar.Clear;
end;
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
procedure TFeedform.AbsendenClick(Sender: TObject);
begin
   Label1.Font.Color:=clWindowText;
   Label2.Font.Color:=clWindowText;
   Label3.Font.Color:=clWindowText;
   Label6.Font.Color:=clWindowText;
   if      trim(vorname.Text)=''        then Label1.Font.Color:=clRed
   else if trim(name.Text)=''           then Label2.Font.Color:=clRed
   else if trim(email.Text)=''          then begin
     showmessage(trans(lang,51,'Bitte Email eingeben'));
    Label3.Font.Color:=clRed
   end else if (Pos('@',Email.text)<=0) or (Pos('.',Email.text)<=0) then
     Label3.Font.Color:=clRed
   else if Bewertung.ItemIndex=-1 then Label6.Font.Color:=clRed
   else begin
     Done:=true;
     Close
   end;
end;
//------------------------------------------------------------------
//                                                                --
//  FeedBack                                                      --
//                                                                --
//------------------------------------------------------------------
procedure TFeedform.VerwerfenClick(Sender: TObject);
begin
   Stopped:=true;
   Close;
end;
//------------------------------------------------------------------
//                                                                --
//  Paint                                                         --
//                                                                --
//------------------------------------------------------------------
procedure TFeedform.FormClick(Sender: TObject);
begin
  //
end;

procedure TFeedform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Stopped:=true
end;
//------------------------------------------------------------------
//                                                                --
//  Paint                                                         --
//                                                                --
//------------------------------------------------------------------
procedure TFeedForm.FormPaint(Sender: TObject);
begin
  Absenden.SetFocus
end;
//------------------------------------------------------------------
//                                                                --
//   Ende dieser Quelle                                           --
//                                                                --
//------------------------------------------------------------------
end.