Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 


Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Feedback.pas   Sprache: Delphi

unit Feedback;

interface

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

  const
    em=6000;
type
  TFeedform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Vorname: TEdit;
    Name: TEdit;
    Email: TEdit;
    Kommentar: TMemo;
    Button1: TButton;
    Bewertung: TComboBox;
    BitBtn1: TBitBtn;
    constructor Create(Owner: TComponent); override;
    procedure AbsendenClick(Sender: TObject);
    procedure VerwerfenClick(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;

end.


¤ Dauer der Verarbeitung: 0.18 Sekunden  (vorverarbeitet)  ¤





Kontakt
Drucken
Kontakt
sprechenden Kalenders

in der Quellcodebibliothek suchen




schauen Sie vor die Tür

Fenster


Die Firma ist wie angegeben erreichbar.

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff



                                                                                                                                                                                                                                                                                                                                                                                                     


Neuigkeiten

     Aktuelles
     Motto des Tages

Software

     Produkte
     Quellcodebibliothek

Aktivitäten

     Artikel über Sicherheit
     Anleitung zur Aktivierung von SSL

Muße

     Gedichte
     Musik
     Bilder

Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik