|
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)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
