Columbo aufrufen.~pas zum Wurzelverzeichnis wechselnShell {Shell[57] Isabelle[58] Cobol[110]}Datei anzeigen
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.
[ Original von:0.71Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen.
Man kann per Verzeichnistruktur darin navigieren.
Der Code wird farblich markiert angezeigt.
]
